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i UTLDEF .B32 - uinitt DEFINI 
' OF anket DE 
! Version 04-00 : 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 
is DIGITAL EQUIPMENT CORPORATION, | MAYNARD. MASSACHUSETTS. 
'w ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND tn 
'* ONLY ton Oe TH DANCE WITH THE TERMS OF SUCH Lit AND WITH THE 


NITION 
DEFINI 


'® TRANSFERRED. 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
= Se okat ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 
.* . 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR ee OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


* 
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ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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! MODIFIED BY: 
V02-001 REFORMAT 


Maria del C. Nasr 01-Aug-1980 


1 
: macros to extract offsets, field widths, etc., from field extraction macros 


MACRO $BYTEOFFSET (OFFSET, POSITION, WIDTH, SIGN) = OFFSETS; 
MACRO $BITPOSITION (OFFSET, POSITION, WIDTH, SIGN) = POSITION2; 
MACRO $FIELDWIDTH (OFFSET, POSITION, WIDTH, SIGN) = WIDTH2; 
MACRO $EXTENSION (OFFSET, POSITION, WIDTH, SIGN) = SIGN; 


MACRO $SFIELDMASK (OFFSET, POSITION WIDTH, SIGN) 
(1*(POSITION+WIDTHS = 1*POSITIO 


' 
: macro to generate equist constructs 


MACRO 
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‘ 
MACRO DEFINITIONS FOR RMS=32 INDEX FILE ORGANIZATION 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
‘* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
e vinnseeeacee’ NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


is THE INFORMATION IN THIS SOFTWARE IS SU 
it AND SHOULD NOT BE CONSTRUED AS AC 
it CORPORATION. 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


watt TO CHANGE WITHOUT NOTICE 
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OMMITMENT BY DIGITAL EQUIPMENT 
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i FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 
ABSTRACT: 

; 

: ENVIRONMENT: 

VAX/VMS OPERATING SYSTEM 

_ 

1! 

i AUTHOR: D. H. Gillespie CREATION DATE: 17-MAR-1978 


and W. Koenig 


MODIFIED BY: 


v03-002 ee Maria del C. 15-Mar-1982 
new atts tL inkage for RMSBUG3. Take out definition 
for R_REC_SIZE, and R_VBN. 


v03-001 MCNO0002 Maria del C. Nasr 25-Mar-1982 
Add macro definition to calculate key buffer address. 


v02-003 CDS0001 C Sae 9-Dec-1981 
Comment out ieterenaen. to CSHSM_READAHE AD flag in the 
SCSHFLAGS macro. 
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3 Define macro for psect attributes 

MACRO PSECT_ATTR = EXECUTE,PIC,GLOBAL 2; 

Define macro to extract size 

MACRO SBYTESIZE(OFFSET,POSITION,WIDTH,SIGN) = WIDTH / 8 2%; 


' 
Structure declarations used for system defined structrues to save typing 


STRUCTURE 
BBLOCK (CO, P, S$, E; NJ = 


(BBLOCK+0)<P,S,E>, | 
BBLOCKVECTOR i. 0, P, S. E; N, BS] = 
N*BS 
(BBLOCKVECTOR+(0+1*BS))<P,S,E>; 
i eeeee The following two macros violate the BLISS language definition , 
{ eeeee in that they make use of the value of SP while building the argument 


‘ List. It is the opinion of the BLISS maintainers that this usage is safe 
! #eee2 from planned future optimizations. 


» 
oe 
a 
» 
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i Macro to call the change mode to kernel system service. 
' Macro call format is ‘‘KERNEL_CALL( ROUTINE, ARG1, ARG2, ...). 


WN 0 OONOUESWN —OOCONOUS Wr O0Me 


KERNEL_CALL (R) = 


EXTERNAL ROUTINE SYSSCMKRNL : ADDRESSING_MODE (ABSOLUTE) : | 
BUILTIN SP; 
SYSSCMKRNL(4, .SP, %LENGTH=1 | 
ZIF SLENGTH GTR 1 XTHEN, REMAINING %FI) 
END2; 
| 
| 
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! macro to generate a string descriptor 
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MACRO 
DESCRIPTOR (STRING) = 

: UPLIT (X%CHARCOUNT (STRING), UPLIT BYTE (STRING))2; 
1 4 
: macro to return the number of actual parameters supplied to a routine call 
1 MACRO 
1 ACTUALCOUNT = 
1 BEGIN 
1 BUILTIN AF; 
1 ~{,AP)<0,8> 
189 END 
190 z; 
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] 
macro to generate call to bug check routine 
MACRO sa CHECK = 
eer GE 
EX XTERNAL AL’ ROUT ine 
RLSJSB; 


RusBuGs 0) ) &; 


O00 
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i Macro used to determine record identifier size (byte or word) depending on 
prologue version of the file. 


MACRO on i | et ty tate = 
CF el IFABCIFBSB_PLG_VER] LSSU PLGSC_VER_3 


| 
-RECADREIRCS$B_1D] | 


22222 
SSLESRELLSSESLSSZ 


pe ee fan lala la lolol ole lel ala elelolelolelelololalelalololo) 


-RECADRCIRC$W_IDJ) % ; 


! Macro used to determine acdress of key buffer wanted. Parameter is 
the keybuffer number. 


z 
SOCOCOSCCOCOCOOCOCOOOCOOOOOOOOOCOOOOO 
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MACRO capi ¢ ADDR(KBUFNO) = 
IRABCIRBSL_KEYBUF] + .IFABCIFB$W_KBUFSZ3 * ((KBUFNO) - 1) % ; 
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‘KEEP THESE DEFINITIONS IN ALPHABETICAL ORDER, PLEASE! 


internal register definitions 
common register definitions 


MACRO 


COMMON _ dws? fy 
R_FAB, R_IFAB, R_IFAB_FILE, R_IMPURE 2%, 


COMMON _ anes 
R_BDB, R_BKT_ADDR 2%, 


COMMON we = 
R_RAB, R_IRAB, R_IFAB, R_IMPUREZ, 


22232 
GOOOCOSOOSOSOSOOC SCOSOSSCOSCSOOOSCOSOOSOSOOSOOOOCOOOOOOCODOO 


Witt 
miscellaneous register definitions ‘ ' 
the macros associated with registers will follow these conventions: 
macro r_name = 
“name = egister_ number %; (no trailing punctuation) 
to be used bestce ly in’a Linkage statement, an 


' 
' 
' 
| 
t 
: macro r -name- str = 

name : ref bblock %; (or whatever structure) 
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9 ache to be used basically in external or global register declarations 
— 8 R_BDB = 
02 D = 4%, 
” 33 R_BKT a = 
0 BKT_ADDR = 5 i, 
me!) R.FAB = 
3 $? FAB = 8%, 
Ls) 0 R_IDX_DFN = 
0271 JIDX_DFN = 7 &, 
M Bs3¢ R_IFAB_FILE = 
7 IFAB_LFILE = 9 % 
Mm 0274 R_IMPURE = 
275 URE = 11 2%, 
M 0276 R_IRAB = 
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; 11 ' F 
: 1g macro to make the status codes small : 
: mM 0314 MACRO WORDMASK(CODE) = ( | : 
; 4 1? (CODE AND ZX°FFFF")) | é 
: ™ i$ MACRO RMSERR (CODE) = ( | : 
; a] 8 \8 ZNAME('RMS$_',CODE) AND 2X‘FFFF*) : 
: 0320 , | ; 
3; # 1 RMSSUC (CODE) = ( : 
: . ¢ “IF SLENSTN EQL 0 ZTHEN : 
; M0324 0 XELSE | 3 
; 40325 0 ZNAME ('RMS$_*,CODE) AND &X'FFFF* | : 
EB 8 uP Sit, 
: 088 0 , | 
: of , } macro to make constants that are calculated have the <0,16> attribute | F 
: 0331 0 i : 
: Sets 8 ; macros to make the code a little nicer | ; 
; 0334 0 MACRO | ; 
; 0335 O ! 3 
>; 0336 0 ! this macro allows you to make a call to another routine | F 
; 0337 O ' (and do whatever you want in a block before the call), 3 
; 0338 0 ! and if an error resulted, do whatever you want and : 
: te ° } then return with the status. | 3 
2m 0341 0 " RETURN_ON_ERROR (CALL) () = : 
3; #4 oeeg 0 (LOCAC STA 5 Fs 
3; 4 034 0 IF NOT (STATUS = (CALL)) THEN : 
340344 0 (ZREAMAINING; 3 
: Been 4 RETURN .STATUS)) %, | : 
: 0347 0 | ; 
:; 0348 0 ! this macro is the same as the one above, except that it 3 
; 0349 0 ! it returns w/ status whether or not there was an error 3 
: 0350 0 ! and the caller can supply an ‘else’ block § 
s @351 @ ! mote: the ‘call’ part and ‘else’ part must be separated by a comma 3 
: 0326 3 not a semicolon and the ‘else’ part must be terminated by a semicolon F 
i M0354 0 RETURN, ELSE (CALL) [J = | : 
; M 0355 (LOCAL STATUS; 3 
5 + Oso 8 Yet (STATUS = (CALL)) THEN RETURN .STATUS 3 
: M0358 0 LREMAINING | : 
3; 384 8 . RETURN .STATUS) ‘ 
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! th 

MACRO IRP(A)() = 
ZASSIGN (CSHTMP,CSHTMP OR ZNAME('CSHSM_',A)); 
_ REMAINING) ; 


Mlwn— 


ZASSIGN (CSHTMP,CSHTMP OR CSHSM_NOWAIT); 
a1F bE bag A 


NEQ 0 ZTHE 
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0 
0 
| 
0 
0 
0 
0 0 
9 0 
O37 0 
0378 0 
a3 3 7 yeaa 
0381 0 ZIF (CSHTMP AND CSHSM_NOBUFFER) NEQ 0 X%THEN 
0382 0 ZASSIGN (CSHTMP,CSHTMP OR CSH$M_NOREAD); 
03 0 ZF1; 
DS aoe, 
9] 8 this is a macro to call cache or cachec 
" 0388 9 MACRO. CACHE (VBN,SIZE,FLAGS,EP) = 
™ 0390 0 ZIF SNULL(FLAGS) %THEN 
r 0391 9 os i COMPILETIME CSHTMP = 0 
8 0398 $CSHFLAGS (FLAGS) 
Mm 0395 ZIF XNULL(EP) X%THEN 
4 0396 9 sie RMSCACHE (VBN, SIZE, CSHTMP) 
m 0398 0 ZNAME ("RMSCACHE' EP) (VBN, SIZE, CSHTMP) 
m 0399 0 “FI 
9400 0 END 
8 ee 
bc08 0 this is a macro to call getbkt or getbktc 
" bc; 0 MACRO GETBKT (VBN,SIZE,FLAGS,EP) = 
" 9407 9 ZIF ZNULL(FLAGS) X%THEN 
" 0408 9 sn COMPILETIME CSHTMP = 0 
" 9410 9 $CSHFLAGS (FLAGS) 
i O4i¢ 0 TIF ZNULL(EP) XTHEN 
M 041 0 RM$GETBKT(VBN,SIZE,CSHTMP) 
M 0414 ZELSE 
M0415 0 ZNAME (*RMSGETBKT’ EP) (VBN,SIZE,CSHTMP) 
M 0416 9 “FI 
M 0417 


END 


9 ° e 
13-Sep-1984 22:56:09 


! this is an internal cache macro to verify the cache flags and set them up 
MACRO SCSHFLAGS(FLAGS) = 

COMPILETIME CSHTMP = 0 

ZIF NOT ZNULL(FLAGS) %THEN 

sr IRP (ZREMOVE(FLAGS)); 

ZIF (CSHTMP AND CSHSM_READAHEAD) NEQ 0 XTHEN 


N 
SHSM_LOCK OR CSHS$M_NOREAD OR CSHSM_NOBUFFER)) 
ZERRORMACRO (INVALID CACHE FLAG COMBINATION’); 
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is is an internal cache macro to put the value of the flags into cshtmp 
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; & 0 : “ 
3 be g 8 these are macros to do probing of user structures ‘ 
> . 0425 0 ACRO ‘ 
; 4 0426 0 IFNORD (SIZE,ADDR,MODE) () = ‘ 
> 4 0427 QO ( : 
; 4 0428 O IF NOT PROBER( . 
; M Rees 0 ZIF XZNULL(MODE) XTHEN O XELSE MODE %FI, : 
: 4 0430 0 IZE ‘ 
: 4 0431 0 ADDRS | : 
: M peas 0 EN | ‘ 
; ™ 0435 0 ZREMAINING) ° 
>; 0434 0 ° ° 
s 0655 0 ‘ 
:; 4 0436 0 IFNOWRT (SIZE,ADDR,MODE) (J) = . 
; 4 0437 O ‘ 
; 4 0438 O IF NOT PROBEW( ‘ 
: 4 0439 O ZIF ZNULL(MODE) XTHEN O XZELSE MODE ZFI, . 
; 4 0440 O SIZE ° 
: 40441 0 ADDRS : 
; ™ peeG 0 EN ° 
> M0443 0 %REMAINING) | : 
; 0445 QO : 
; 4 0446 0 IFRD (SIZE,ADDR,MODE) (CJ = | ° 
3 ™ 0447 O | ° 
; 4 0448 O IF PROBER( ‘ 
7 40449 0 ZIF ZNULL(MODE) XTHEN O XELSE MODE %FI, ’ 
3; 4 0450 0 SIZE ‘ 
; 40451 0 ADDRS : 
3M BS 36 0 HEN ‘ 
: M0453 0 ZREMAINING) | : 
: 0654 0 ° ‘ 
:; 0455 QO ! macros to do long premas ° 
; 9k 3 READ_LONG(SIZE,ADDR,MODE) = NOT RMSNOREAD_LONG(SIZE,ADDR,MODE) %, ° 
: 0658 0 WRT_LONG(SIZE,ADDR,MODE) = NOT RMSNOWRT_LONG(SIZE,ADDR,MODE) %; | : 

: 
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0459 ! 
Bred macro to release a bucket and clear the location where its bdb addr is stored 
M 046 MACRO RELEASE(B) = 
M 046 BEGIN 
M 0464 BOB = .B; 
M 0465 B = 0; 
M 0466 RMSRLSBKT(0); 
0467 END2; 


$ 
; 
; Q 
: 0 
; A) 
; 0 
; 0 
; 0 
; 0 
: 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0487 0 
; 0 
; 0 
; 0 
: 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
: 0 
; 0 
3 0 
; 0 
3 0 
; 0 
; 0 
; Q 
; Q 
: 0 
; 0 
; 0 


! 
! macro to make sure that an assumption made about the position of symbols 
' in a structure is still valid 

! the arguments to this macro must be preceded by %quote 

} e.g., assume (Zquote ifb$b_bid, %quote ifb$b_bin); 


"MACRO ASSUME (A,B) = 
ZIF SBYTEOFFSET(A) + $BYTESIZE(A) NEQ $BYTEOFFSET(B) 
XTHEN ZWARN('WARNING CONSTANT HAS CHANGED’) 


! 
| 
e j 
| 


22z 
So 
= 
~“ 
uw 


this version of assume is good for constants 
e.g. assume (irc$c_fixovhdsz + 2, irc$c_varovhdsz); 


"MACRO ASSUME_C (A,B) = 

%IF SBYTEOFFSET(A) NEQ SBYTEOFFSET(B) 
XTHEN XWARN("WARNING CONSTANT HAS CHANGED") 
C201,10]RMSIDXLNK.R32 


Define subroutine Linkage 


222 
Oo 
oo 


LRA REAR RE RARER EERE 
' 


i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
't DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
i® ALL RIGHTS RESERVED. 


® 
® 
® 
® 
i® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. . 
® 
* 
® 
* 
* 
* 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


See eee RAE AR EA EARA AREA AAAAAAAAA AAT ARTETA AAT ARERR e AAR e eee 
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15-Sep-19 4 $5:26:68 VAX-11 Bliss-32 V4.0-742 
15-Sep-1984 22:55: $255$DUA28: CRMS.OBJIRMS.R32;1 
: FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 
ABSTRACT: 


This module defines all the routine Linkage 


! ENVIRONMENT: 
VAX/VMS OPERATING SYSTEM 


AUTHOR: D. H. Gillespie | CREATION DATE: 17-MAR-1978 
and W. Koenig 


MODIFIED BY: 


v03-024 RASO154 Ron Schaefer 2-May-1983 
Add NOPRESERVE (R2) to L_EXTENDO Linkage. 
v03-023 MCNO020 Maria del C. Nasr 07-Apr-1983 


dpe Linkages of RMS$NULLKEY,and RMSCOMPRESS KEY. 
They will be using general Linkages. Modify L_ACLOC3, 
and L_EXTENDO to use parameters instead of global registers. 


DVL PU PUPP PUDVSPUSI SSVI SSIS 


BERR EE EWN nonoponronononenn 


WR — OS OONOUES WN O OONAUEWN “OO OONAULS WN “OOOO 


Define new general Linkages. Also, since the Linkages 
have changed so much, eliminate all history comments. 


a 
.. | 
pe. 
Pe 
Bes 
; Q 
: «9 
ae 
a 
o 0 
; 9g 
;. § 
ee. 
9 0 
* 0 
; @g 
 - 
ee 
he 
; 9 
is . 
eS 
° 0 
‘> 2 
; Q 
; Q 
° 0 
© 0 
© 0 
o 0 
Wes 
@ 0 
ge. 
eee. 
oo 0 
Pe 0 
a 0 
eo 0 
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5 v03-022 MCNO019 Maria del C. Nasr 05-Apr-1983 

5 Preserve all coaesers except RO and R1_ in Linkage 

5 FABREG. RMS$XSUMO requires a separate Linkage because 
2 it cannot preserve R4. 

5 v03-021 TMKO001 Todd M. Katz 26-Mar-1983 

2 Add the Linkage RABREG_4. 

; v03-020 MCNOO018 Maria del C. Nasr 24-Mar-1983 

5 

5 

5 


mn & 
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13-908-18 4 $5: 20:08 _$255$DUA28: CRMS.OBJIRMS.R32;1 ° (9) 
H 9228 8 ! : 
; Be 5 : This module defines all the routine Linkage for RMS-32 index file ; 
; pees 8 } organization. : 
3 b2e6 8 KEEP THESE DEFINITIONS IN ALPHABETICAL ORDER PLEASE : 
: peed 8 } The following conventions will be used for Linkage macros: : 
: §26¢ 0 : MACRO L_NAME = : 
:; 0565 0 ! RLSNAME = 5 
5 0564 0 : JSB (REGISTERS) : 3 
3 pee 8 GLOBAL (REGISTER DEFINITIONS) 2%; : 
; 0567 QO : The register definitions are macros of the forms 3 
; 0568 QO ; COMMON_FABREG, COMMON_RABREG, COMMON_IOREG, etc. $ 
; b298 8 or R_REGNAME as described in RMSIDXMAC.R32 : 
s 71 9 MACRO ; 
5 b20§ 0 3. 
; 40573 0 L_ALDBUF = | : 
: 40574 O RLSALDBUF = $ 
; #0575 O JSB (REGISTER = 5) : : 
; 40576 O LOBAL (R_IMPURE, R_IFAB) : 
: 40577 0 NOPRESERVE (2,3,4) | ; 
; 0578 O NOTUSED (8,9) %, | : 
; 0579 O F 
; 6 0580 O L_ALLOC3 = : 
: 6 0581 O RL$ALLOC3 = 3 
; ™ 0582 O JSB (REGISTER = 7; REGISTER = 1, REGISTER = 2) : : 
:; 0583 0 GLOBAL (R_IFAB) %, : 
; 0584 0 3 
; 40585 0 L_BDBALLOC = $ 
; 6 0586 O RLSBDBALLOC = 3 
:; 4 0587 O JSB (REGISTER = 4, REGISTER = 5) : é 
; » 0588 O LOBAL (COMMON_RABREG) : 
; 0589 0 NOPRESERVE (2,3.4,5,6) %, 3 
; 0590 0 3 
; ™ 0591 O L_CACHE = : 
; A bens 0 CHE = ; 
: 4 0593 O JSB (REGISTER = 1, REGISTER = 2, REGISTER = 3) : : 
; 40594 O GLOBAL (C ON_IOREG) 3 
7 #0595 0 NOPRESERVE (1,2,3) 3 
; 0596 0 NOTUSED (8,9,10.11) %, : 
; 822 0 3 
: 60596 O L_CHECK_SEGMENT= : 
; 4 0599 O RLSCHECK_SEGMENT = : 
; ™ 0600 O JSB (REGISTER = 0, REGISTER = 4, REGISTER = 2) : ; 
; ™ 0601 0 GLOBAL (R_IDX_DFNS ; 
; 6 0602 O NOPRESERVE (274,5) : 
: 0603 0 PRESERVE (1) &, : 
:; 0604 0 3 
; ™ 0605 O L_CHKSUM = : 
7; M 86 8 RLSCHKSUM = é 
; # 060 SB (REGISTER = 5) : 
; 0608 0 NOPRESERVE (0,1,2) %, 3 
: +484 0 5 
3 ™ 0610 0 L_COMPARE_KEY = ; 
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$s 


7 
8 
9 
2O60 
g 


L_LINK_7.10_11 = 
RLSCINK_7_10_11 = 
JSB_Q) 3 
GLOBAL (R_IDX_DFN, R_IFAB, R_IMPURE) 
NOPRESERVE (071) &, 


BEBz 
Sooooo 
S333 


: M 0611 RLSCOMPARE_KEY = 
:™ O61¢ JSB (REGISTER = 1, REGISTER = 3, REGISTER = 0) : 
: M 061 GLOBAL (R_IDX_DENS 
; 0614 NOPRESERVE (3) %, 
:™ Deg 6 L_ERROR_LINK1 = 
: 40617 0 RLSERROR_LINK1 = 
; & 0618 O J : 
: 4 0619 0 GLOBAL (COMMON_RABREG) 
; 06 9 9 PRESERVE (0) %7 
: 4 06 ‘ 9 L_ERROR_LINK2 = 
: 4 06 RLSERROR_LINK2 = 
> M0624 0 JSB 0 : 
> 4 0625 0 GLOBAL. (COMMON_RABREG, R_IDX_DFN) 
: 0626 0 PRESERVE (0) %> 
3 bese 0 
: 4 0628 0 L_EXTENDO = 
: M 06¢9 0 RLSEXTENDO = 
> ™ 0630 0 JSB (REGISTER = 5, REGISTER = 6; REGISTER = 1, REGISTER = 6) : 
>: M0631 0 GLOBAL (COMMON_FABREG) 
; 0632 0 NOPRESERVE (2,3,4,5) %, 
; 0635 0 
> ™ 0634 0 L_FABREG = 
> 4 0635 0 RLSFABREG = 
: ™ 0636 0 JSB () : 
: M0637 0 GLOBAL (COMMON_FABREG) 
> 0638 0 NOPRESERVE (0,7) %, 
: 0639 0 
:™ 0640 0 L_FABREG_7 = 
> 4 0641 0 RLSFABREG_7 = 
: iM 0642 0 JSB 0 : 
; 064 5 9 GLOBAL (COMMON_FABREG, R_IDX_DFN) %, 
: M0645 0 L_GETSPC = 
> M0646 0 RLSGETSPC = 
> M 0647 0 JSB (REGISTER = 1, REGISTER = 2; REGISTER = 1) : 
> 4 0648 0 GLOBAL (R_ IMPURE) 
: M0649 0 NOPRE SERVE (2,3,4) 
> 0650 0 NOTUSED (8,9,10) X, 
: 0651 0 
; M 04 0 L_JSB = 
; ™ 06535 O RL$JSB = 
: 0694 0 JSB () %, 
3 655 0 
: 4 0656 0 L_JSB01 = 
> ™ 0657 0 RL$JSBO1 = 
: ™ 0658 0 JSB (REGISTER = 0, REGISTER = 1) : 
> ™ 0659 0 GLOBAL (R_BKT_ADDR, R_REC_ADDR, R_IDX_DFN, R_IRAB, R_IFAB) 
: 0 NOPRESERVE (071) %. 
0 
0 
0 


BeBe Be Oe Be ee 
o 

o 

NO 


— 
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L_PRESERVE! = 


sg 


M 
4 § RLSPRESERVE! = 
” 0 138 () 
™ 0671 OBAL (COMMON RABREG, R_BDB, R_REC_ADDR, R_IDX_DFN) 
i PRESERVE (1) %> 
M 0674 L_QUERY_AND_LOCK = 
mM 0675 RLSOUERY_AND grock 
M 0676 ite cREGTSTER 1 “REGISTER = 2): 
Mm 067 GLOBAL OMMON.R “ RABREG) 
po78 ROPRESERVE (3)"%, 
M 0680 L_RABREG = 
M 0681 RLSRABREG = 
M b68¢ JSB () 
M 068 OBAL (COMMON RABREG) 


GLO! 
NOPRESERVE (0,7) %, 


: M 0686 0 L_RABREG.4 = : 
: m 0687 0 RLSRABREG_ 4 = 
: 4 0689 0 CLOBAL_ {COMMON RABREG, R_BDB) ; 
3 924 8 NOPRESERVE (0,7) %, : 
: M 0692 0 L_RABREG_ 4567 = : 
: M0695 0 mga. 4567 = | 
: 4 0695 0 GLOBAL (COMMON. RABREG, COMMON_IOREG, R_REC_ADDR, R_IDX_DFN) | ; 
; 2098 NOPRESERVE (0,7) %, ; 
: ™ 0698 0 L_RABREG. 457 = : 
: 0699 0 RLSRABREG. 457 = : 
: 0701 0 GPOBAL (COMMON RABREG, COMMON_IOREG, R_IDX_DFN? : 
: 0702 0 NOPRESERVE (0,1) X, | ; 
:m 0704 0 L_RABREG_ 467 = ; 
a ig veal | 
:™ 0707 0 GLOBAL (COMMON RABREG, R_BDB, R_REC_ADDR, R_IDX_DFN) | ; 
: 9708 0 NOPRESERVE (0,1) %, 3 
:™ 0710 0 L_RABREG_567 = | : 
iM O711 9 RL SRABREG_ 567 = : 
; m O71¢ Js 0) ; 
0713 0 GLOBAL (COMMON. RABREG, R_BKT_ADDR, R_REC_ADDR, R_IDX_DFN) : 
i 0714 0 NOPRESERVE (OT) i. | ; 
im Ore O L_RABREG | 
; " a : “ sane. 67 = | 2 
> 0719 0 GLOBAL (COMMON RABREG, R_REC_ADDR, R_IDX_DFN) | ; 
3 a8 NOPRESERVE (0,1) %, | 3 
: 4 07 ; L_RABREG 7 = ; 
; ™ 072 4 RLSRABREG, 7 = 3 
3; ™ 0724 : 


Lae es Ge aoe ae aes ® 
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; 0725 GLOBAL (COMMON _RABREG, R_IDX_DFN) 

; f § NOPRESERVE (0,7) %, 

3; 4 0728 L_REC_OVHD = 

3; 0729 RLSREC_OVHD = 

: 4 0730 JSB (REGISTER = 1; REGISTER = 1) : 

; 07 1 GLOBAL (R_REC_ADDR, R_IDX_DFN, R_IFAB) %, 

; 407 : L_RELEASE = 

3; 4 07 RLSRELEASE = 

3; M 0735 JSB (REGISTER = 3) : 

; 4 07 § GLOBAL (R_BDB, R_IRAB, R_IFAB, R_IMPURE) 

; § 07 WOPRE SERVE (1,2) 

; 0738 NOTUSED (8) %, | 
; 0739 0 
; ™ 0740 8 L_RELEASE FAB = 
: M0741 RCSRELEASE_FAB = | 
: M4 O7eg 0 JSB (REGISTER = 3) : 

340743 0 GLOBAL (R_BDB, R_IFAB, R_IFAB_FILE, R_IMPURE) 

70744 0 NOPRESERVE (1,2) 

; 0745 0 NOTUSED(8) %, 

; 0746 0 

3 40747 O L_RETSPC = 

7 M0748 O TSPC = 

; 40749 O JSB (REGISTER= 2, REGISTER = 3, REGISTER = 4) : 

; 40750 0 AL_(R_ IMPURE) 

7 40751 O NOPRESERVE (2,3,5) 

; O79¢ 0 NOTUSED (8,9,105 %, 

; O753 @ 

3 40754 0 L_SIDR_FIRST = 

7 ™ 0755 0 RLSSIDR_FIRST = | 
: 40756 O JSB (STANDARD; REGISTER = 1, REGISTER = 2) : 
3 ta t4 GLOBAL (R_REC_ADDR, R_IDX_DFN, COMMON_RABREG) 2%, 

3 40759 «+O L_XSUMO = 
; "0760 0 RL$XSUMO = 
7 ™ 0761 O J8B 0): 

; M O76¢ 0 GLOBAL (COMMON_FABREG) 

: 0763 0 NOPRESERVE (0,1,4) 2%; 

; 0764 QO 

; 0765 O 

; 0766 0 : 

; 16h 0 ! VERSION: *v04-000' 

: 3708 8 PITTIILILILILILILIT LLL LiL 

: 0770 QO 'e * 

; 60771 '® COPYRIGHT (C) 1978, 1980, 1982, 1984 BY * 

; O77 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

3 Orr 1* ALL RIGHTS RESERVED. * 

2 ‘@ * 

; bp 78 2 '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

; 0776 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

: O77 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

: 0778 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; O77 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

; o7e0 1# TRANSFERRED. 5 

. rT ® 
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: 783 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

: 07 ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

: y ¢ ;* CORPORATION. . 

: 07 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; 187 is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 

4 ® 

: 789 is * 

3 790 eee Ree RAAEE AERA AEE EEAEEEEAEEA AEE AE EERE AEE e eee eee eee 

:  Ohgp ¥ 

: 198 FACILITY: 

: 0795 i MESSAGES ARE FOR THE FAL (DECNET FILE ACCESS LISTENER) FACILITY, BUT | 
: Brae 0 ARE GENERATED ON BEHALF OF FAL BY RMS. 
; 0798 ABSTRACT: | 
: 0800 8 i THIS MODULE DEFINES FAL STATUS CODE SYMBOLS AND CORRE SPONDING MESSAGE | 
> 0801 0 i TEXT. NOTE THAT THIS MESSAGE FILE IS MAINTAINED BY THE RMS F ACILITY 
: 0802 0 i NOT THE FAL FACILITY BECAUSE RMS DOES THE TRANSLATION OF DAP STATUS 
: 0803 0 i INTO FAL STATUS CODES WHICH ARE REPORTED AS SECONDARY STATUS INFORMATION | 
3 0804 9 TO THE RMSS$_NETFAIL AND RMS$_SUPPORT COMPLETION CODES ON BEHALF OF FAL. | 
: } 
3 ti] 8 ENVIRONMENT: VAX/VMS 
: 0808 9 AUTHOR: JAMES A. KRYCKA, CREATION DATE: 15-JAN-1982 

; 0810 g MODIFIED BY: 

: 0812 0 i V03-001 JAKO147 RYCKA 09-JUL-1984 | 
> 0813 0 i ADD ERROR CODES THATS CORRESPOND TO DAP “MICCODES 416 TO 470 | 
: 0814 0 i (OCTAL) FOR MACCODES 4 THROUGH 7 DEFINED IN THE DAP V7.0 | 
: 0815 0 i SPECIFICATION. 
: 0816 0 i 
13: ae 
; 0819 9 DEFINE FAL STATUS CODES FOR USE BY RMS AS SECONDARY STATUS CODES. | 
; 0821 0 LAYOUT OF MESSAGE SPACE: 
; $856 0 i MSG NUMBERS MSG NUMBERS MSG CODES DESCRIPTION 

; 0824 0 (DECIMAL) (HEXADECIMAL)  (HEXADECIMAL) 

: $B5G 9 i 0 = 1023 0000 - O3FF 8000 - FFF UNUSED | 
> 0827 0 i 1024 = 2047 0400 - O7FF A000 = BFFF FOR RMS$_NETFAIL | 
; 0859 0 oS 2048 = 4095 0800 - OFFF C000 - FFFF FOR RMS$~SUPPORT | 
: 0830 6 

; a 1... SRMSFALMSG 

: 08 5 8 LITERAL 

: P 08 5 i »(FACICITY, 503) 

: P O83 i DEFINE FAL STATUS CODES THAT ARE ASSOCIATED WITH THE RMSS_NETFAIL COMPLETION 

: P 0838 i CODE AND RETURNED IN THE STV FIELD OF THE FAB OR RAB. 


- AX-11 Bliss-32 V4.0-742 Page 20 
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P 0839 ' * 
: A TO MAP A DAP STATUS CODE (STSCODE FIELD wi 
: 4 se MEE ODE tt ONRU 7) INYO A OORRESPONDING FAL MESSAGE CODE (LOWER 16 BITS): 
. i 
; ; oRe§ ; MESSAGE=CODE = (2**15 + ((MICCODE + 1024) * 8) + i ta ; 
: i : THREE CHARACTERS OF THE MESSAGE IDENTIFICATION MN 
: P Ose¢ stig EACH TMESSAGE CODE IN THIS SET INDICATES ITS ORIGIN AS FOLLOWS: 
zB OB - - R RMS-32. | ; 
: --- FINED FOR RMS-11 OR RMS-20, BUT NOT FO ; 
: P $829 ste HA .. pe bAPrET ION CODES ARE DEFINED IN RMSDEF. | 
; P 0850 i FCS <--- THE *0 DE IS DEFINED FOR THE FCS-11 ENVIRONM | ; 
: P te i TEN === THE CODE IS DEFINED FOR THE TOPS-10 ENVIRONM ENT. 
: P O83¢ i DAP === ORIGIN IN THE DAP SPECIFICATION IS UNKNOWN. 
: P 085 ie ; 
: , (OFFSET_A, 1024) ; 
: b O88 0 t MICCODE = 0000 COcTAL) pi | 
; P 0856 » (DAPFAIL, (2X"01F7A004' | 
+ P 0857 5 * (RASABD (%X"01F 7A00C' )) | ; 
; P0858 0 ! MICCODE = o01f (OCTAL) ; 
: P 0859 0 , (RMSAST (%X'O1F7A06C")) | ; 
: P 0860 0 » (RMSBPA, (%X'01F7A054")) 
: P 0861 0 (RMSBP (%X"01F7A05C")) | 
; P 0862 0 ! MICCODE = 0036 (OCTAL) 
: P oBe8 0 (%X"01F 7A0B4")) | 
3 P 0864 | MICCOBE = 0056 (OCTAL) ; mi | 
: P 0865 8 I (%X"O1F7A1 | 
; P 0866 0 t MICCODE = 0071 cocTAL) ; | ; 
; P 0867 0 RMSINI , (XX"O1F7AICC*)) | 
: 0869 0 | yeeee east ae (2° O1EZAZI4®)) | 
: P 0870 0 “(RMSLBY (%X"O1F7A21C")) ; 
> P 0871 9 CRASL CH, (4X"O1F7A224")) | 
: b 0875 0 : niccobe O10 ait (2X'O1F7A234')) | 
> P 0874 0 5 (RMSAP My: (ZX"O1F7A23C")) 
: 4 oBre 0 ec capePaSMLD, mein (%X"O1F 7A26C")) | 
: P0878 0 ecg RRSOPN, soa (4X"O1F7A27C")) | 
: b 0880 0 mice Ole pase (2X"O1F7A2A4")) | 
; P 0881 0 ! MICCODE = 0158 (OCTAL) : ; 
: P oB82 0 CRASSTK, (4X"O1F7A35C")) 
: 4 tt rico SHON. ee (%X"01F7A394")) | 
iP 0856 MICCODE ct) or (X"O1F7A3C4")) | 
: p $Ba8 0 t MICCOOE Fenseri. _ (EK O1FZAGCE!)) ; 
: P 0889 0 * URASBEE (2X"O1F7A4D4")) 
: P 0890 0 * (RMSCDR (ZX"O1F7A4DC")) ; 
+ P 0891 * (RMSCGJ. (2X"O1F 7A4E4")) ; 
Eee ane HBT SEE} : 
: 0894 * (RNSPEF CEN OTEPAGEC' 
> P 0895 } ’ (RMSTRU. (£X"01F7A504")) 
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* 
Copyri ht (c) 1982, 1983 ; * 
by DIGITAL Equipment Corporation, Maynard, Mass. * 
® 


This software is furnished under a license and may be used and copied 
| in accordance with the terms of such License and with the 
inclusion of the above copyright notice. This software or any other 
copies thereof may not be provided or otherwise made available to any 
- ed cakn ty No title to and ownership of the software is hereby 
ransferred. * 


a2ens 


. ® 
The information in this software is subject to change without notice * 
and should not be construed as a commitment by DIGITAL Equipment * 
Corporation. * 


see eeeenenneneeeaeeenene 


DIGITAL assumes no responsibility for the use or reliability of its * 
software on equipment which is not supplied by DIGITAL. 
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NOTE: The fields thru JNLBDB inclusive are common between the ifb and irb 
. - j 
Literal IFB$C_BID = 11; ! ifab id code 
Literal IFBSM_PUT = 1; 
Literal IFBSM_GET = 2; 
literal IFBSM_DEL = 4; 

Literal IFBSM_UPD = 8; 

Literal IFBSM_TRN = 16; 

Literal IFBSM_B10 = 32; 

Literal IFBSM_BRO = 64; 

Literal IFBSMEXE = 128; : 

Literal IFB$C_SEQ = 0; ! sequential 

Literal IFBSC_REL = 1; ! relative 

literal IFBSC_IDX = ¢: | indexed 

Literal IFBSC_DIR = 5; ! direct , 
Literal IFBSC_MAXORG = 2; ! release 1.5 maximum ; 
Literal IFBSK-FHAEND = 103; i end of file header attributes 

Literal IFBSC_FHAEND = 102; ! end of file header attributes 

Literal IFBSC_KBUFNUM = 6; ! constant - the number of key buffers allocated 

Literal IFBSM_ONLY_RU = 1; 

Literal IFBSM_RU = 2; 

literal IFBSM_BI = 4; 

Literal IFBSM_AI = 8; 

Literal IFBSM~AT = 16; 


a 


11 

1$-Sep-19 4 22:56: VAX=11 Bliss-32 V4.0-742 Page 25 

15-Sep-1984 35:28:08 _$255$DUA28: CRMS.OBJIRMS.R32;1 . 3} | 
Literal IFBSM_NEVER_RU = 32; | 
Literal IFBSM_RU_RECVR = 1; 
Literal IFBSM_AI_RECVR = 2; 
Literal IFBSM_BI_RECVR = 4; 
Literal IFBSM_VACID_AT = 1; 
Literal IFBSM_JNL = 2; 
Literal IFBSM_RUP = 4; 
Literal IFBSM_RU_RLK = 8; 
Literal IFBSM_DONE pss JM, = 16; | 
Literal IFBSK_BLN_SEQ = 1 $i | 
Literal IFBSC_BLN SEQ = 172; 
: -- ] 
organization-dependent fields | 
i the following fields are used differently | 
depending upon the file's organization 
i 44 | 
i 
relative org specific fields 
i i 


iteral IFBS$S_IFBDEF = 172; 
' (but have definitions that allow them to 
ae referenced from the start of the ifab) | 
i the following bits are defined in | 
’ common with the irab 


MEWN OOS NOUS WN 0 ODNAUE WN | O OONOAUE WN" OVOONOUSFE 


ee cee ee ae ee ee ed ce ce ee ae eh ce ee ce ec a ce i ee ec ce ca a cl ce cae ce ce i ca ce eel ee ce a ce ee cl ce cl ee el ee ce ee ed 
a ae ee a ee ce ae ee a ce ee ee ee ce cc ch ee ca ce a ce cae ee ca cc cae a ca a ce ce ca ce ce ce ce ce ae ce ce ee a a ee ed ed 
NIN i lc bab nb ude ee oe ab ade babe SAE EAWNIwwrnornopnononerp 
fle lel el ele el ele eel el el ol el ol ol ale al allel alel oleate alelelelelelelelalelelelelealeleleolelelelelelal eel elelolea la) 


Se Be Oe Be Be Oe Be Be Se Oe Be Se Be Se Be Be Be Fe Se Se Be Se He Be Be Oe Be Se Be Se Se Be Be SHH BH Se Oe Oe Se Oe Se Oe Se Oe Oe Se Oe Oe Oe He ee Oe Bees 


macro IFB$V_BUSY = 4,0,1,0 %; ! stream busy 
macro IFBSV-EOF = 4,1,1,6 4%; ! file positioned at eof 
macro IFBSV_PPF _IMAGE = 4,2,1,0 %; ! flag for indirect processing of process- 
! permanent files (restricts allowable operations) 3 
macro IFBSV_ASYNC = 4,3,1,0 2%; : async i/o flag (must be zero for ifab) 
macro IFBSV_ASYNCWAIT = 4,4,1,0 2%; ! wait on async i/o (must be zero for ifab) 
i | 
ifab specific bits 
macro IFBS$V_ACCESSED = 4,5,1,0 2%; ! file is accessed 
macro IFBSV_ANSI_D = _4,6,1,0 2%; ! ansi d variable records 
macro IFB$V~RWC = 4,7,1,0 &; ! copy of fop bit from open 
macro IFB$V_DMO = 4,8,1,0 %; ' copy of fop bit from open 

7 macro IFB$V_SPL = 4,9,1,0 %; ' copy of fop bit from open 

3 macro IFBSV_SCF = 4.10,1,0 i; ! copy of fop bit from open 

9 macro IFB$V_DLT = 4,11,1,0 2%; ' copy of fop bit from open ‘ 

0 macro IFBSV_DFW = $1604 68 i; ! deferred write (copy of fop bit from $Sopen) 

1 macro IFB$V_SQ0 = 4,15,1,0 2%; : sequent tat operations only 

: macro IFBS$V~PPF_INPUT = 4,14:1,0 2%; i this is command ‘input’ stream 
macro IFBSV-NFS~= 4,15,1,0 %: i non-file structured flag 

4 macro IFB$V_WRTACC = 4°16,1,0 &; ! logical or of fac bits: 

5 : put, upd, del, trn ‘ 

6 macro IFBSV_MSE = 4,17,1,0 %; ! multi-streams enabled : 

7 macro IFBSV-CREATE = 4,18.1,0 2; ! set if doing create (may be ‘‘create if'’) 

8 macro IFBS$V_NORECLK = £,19.1,0 &: : ! record locking not required 

9 ' “(i.e., md shared access or multi-stream) = 

0 macro IFBS$V_RW_ATIR = 4,20,1,0 2%; ! set if file attributes must be re-written 
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>) 61181 macro IFBSV_TMP = 1:33:18 i; ' temporary file (i.e., no directory entry) ; 
| HBG Bare THB Ltaat Cotes Hh.1.0 x; | Masia" Sestiea ort ite: fort Sues ten ; 
>; 6.1184 «0 macro IFB$V_SEQFIC = 4.24.1.0 %; ! this is really a sequential file being shared 3 
s 18> @ macro IFB$V_SEARCH = 4,25,1,0 %; ' search ifab - left yr ing wildcard operations : 
>; 1186 0 macro IFBSV_RMS_STALL = 4 26,1,0 %; ' RMS is stalied on this file operation ; 
: 1187 O macro IFBSV_RESTART = 4,27,1,0 %3 ' Reopen or recreate operation in progress : 
>; 61188 «0 macro IFBSV_FILEFOUND = 4 g8 1,0. Be ! A file was found on a search operation ; 
>; 1189 Q macro IFBS$V_DAP_OPEN = 4.8 1,6 2%: ' open/create function was performed via dap : 
>; 1190 0 macro IFBSV_DAP = o30e1. £; ! data access protocol transmission | : 
; 1333 . macro HS a P 16h 8 Bi ox } es ay pore see Sete, Sane : 
; macro * = 0, 0 %; ! device characteristics s : 
3 1198 0 ! (for pr iar device - bit encoding same as for fab) ; 
3 HB 8 macro IFBSL_BKPBITS = 4,0,32,0 %; ! pookkeeping bits ; 
>; 1196 0 macro IFB$B_BID = 8,0,8,0 %; ! block id : 
; 1197 0 macro IFB$B_BLN = 9,0,8,0 %; ' block Length in longwords ; 
; 1198 0 macro IFBSB-MODE = 10,0,8,0 %; ! caller's mode | : 
; Bb +4 8 macro ts gl Hy = 13.6.8,6 4; geges 4 ig Boe _ 4 a then qio : 
$ macro Ke = 12,0,5¢.0 &; nterna 0 status bloc Ke : 
3 \¢0) 8 macro 4+ os a 12/0/3270 te ye we Bay voy Me y «aca waiting : 
; macro ie = 14,0,16,0 &; ’ word of io status bloc : 
; 1203 0 macro IFB$L_10S4 = 16,0,32,0 %; ! 2nd longword of io status block | 3 
3 1E08 8 macro eon = £0 50432 50 8 acerens 9° Soynenesoes Sannans block : 
3 macro « = ° 3 user ca arameters addr : 
; 1206 0 macro IFBS$L_IRAB_LNK = 28:0,52,0 %:; ! pointer to irab(s) : 
3 jeer 9 macro IFBSW-CHNL~= 32,0,16,0 %: ! i/o channel number : 
: 1208 0 macro IFBSB_FAC = 34.6.8.0 x; ! file access : : 
; 1209 0 macro IFB$V_PUT = 34,0,1,0 2%; ! (same as in fab's fac field) | ; 
; 1210 0 macro IFBSV_GET = 34,1,1,0 2%; ; 
; 1211 0 macro IFBSV_DEL = 30°97) 08 z; | : 
; ‘tele @ macro IFB$V_UPD = 34,3,1,0 %; : 
; Yes @ macro IFB$V_TRN = 34,4,1,0 3%; 3 
; 1214 0 macro IFB$V_BIO = 34,5,1,0 %; 3 
s 3213 ® macro IFB$V_BRO = $0°9°1-8 2; | ; 
; 1216 0 macro IFB$V_EXE = 34,7,1,0 2%; a ; : 
s tel @ ! note: if both bio and bro set, implies block i/o ; 
6 6«We8 ® ; access only allowed for this connect, resets : 
; \¢i3 8 to bro on disconnect (seq. file org. only). : 
3 Yee @ macro IFB$B_ORGCASE = 35,0,8,0 %; ! copy of org for case dispatching : 
; \ss¢ 0 macro IFBSL-LAST_FAB = 36,0,82,0 %; ! address of fab for last operation : 
s Yees @ macro IFB$W_IFI = 40,0,16,0 %; ' Internal file Identifier, the one we gave to the user : 
: 1224 0 macro IFB$W_ECHO_ISI = 42.0.18.0 x; ! ISI of stream to echo records from SYSS$SINPUT 3 
s. \eee @ macro IFBSL_ATJNCBUF = 44,0,32,0 2%; ! address of IFAB audit trail buffer = : 
3 1$s6 8 macro 1F BSL _JNLBDB = 48,0,32,0 %; ' address of Journaling BDB for FAB operations : 
>= 2@2fF VY § eeeee rene é 
; 1228 0 macro IFBSL_EXTJNLBUF = 52,0,32,0 2; ' pointer to buffer to contain extend journal record 3 
; eer @ macro IFB$SL_FWA_PTR = 56,0,32.0 2; ! pointer to file work area control block : 
3 \¢e0 4 macro + le li 60195 oO pornter -? fetverk work area control block 3 
; macro _BDB_ = 64,0,32,0 &; ! pointer to (s : 
; 1332 0 macro IFB$L_BDB BLNK = 68,0 8 0 %; ! bdb backward Link : 3 
: 1233 0 macro LEBSL~DEVBUFSIZ = 72,0,32,0 %:; | device default (or bls if mt) buff size ; 
3 \S3e 3 macro th a Q 78 6.0. 18,6 z; eyes ise | pb gf agtent quantity : 
; macro cs = 78,0,8,0 2; : e sharing bits from users = : 3 
; 1$38 macro IFB$B_AGFNT_MODE = ¥o°b.8,0 z; ! User's PABSY_FILE_MODE field, maximized with mode of caller : 
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++++etaaee 


they correspond to the rms attributes stored 


' 
i 
} the following fields must remain as is since 
i im the file header 


macro IFBSB_RFMORG = 80,0,8,0 %; ! organization and record format 


liter (Tress. REN 80,0.4.6 i; ! d f (n.b lues defined fm field of f 
itera = 4; ! record format (n.b. constant values defined in rfm field of fab) ; 
macro IFBSV_ORG = 80,4,4,0 %; | ; 
Literal IFBSS ORG = 4; ! file organization | ; 
macro IFBSB_RAT = 81,0,8,0 %; ! record attributes (n.b. bit offsets defined in rat field of fab) ; 
macro IFBSW_LRL = 82.0.16,0 &: ! longest record's Length (or fixed record Length) : 
macro IFB$L_HBK, DISK = 84 0.32.0 % ! hi_vbn allocated (note: disk format!) ; 
macro IFBSL_EBK_DISK = 88,0,32,0 % ! eof vbn (note: disk format!) : 
macro IFBSW_FFB = 92,0,16,0 %; ! first free byte in eof block : 
macro IFB$B_BKS = 94,0.8.0 %; ' bucket size (! vbns) ; 
macro IFB$B_FSZ = 95,0,8,0 %:; ' record header size for vfc ; 
macro IFBSWIMRS = 96,0.16,0 &; ! max record size allowable ; 
macro IFB$W_DEQ = 98,0,16,0 %; ! default extend quantity ; 
macro 1FBSW GBC = 106,6,16,0 &; i global buffer count | ; 
macro IFBSB_DRT_REHIT = 104,0,8,0 2; ! hit count for local dirty buffers. : 
macro IFBSB_GBL_REHIT = 105,0,8,0 %; ! rehit count for gbl buffers. ; 
macro IFBSL_RNS_LEN = 108,0 32,6 &; ' resultant name string Length (used as a temp field by $Ssearch) : 
macro IFBS$L-LOCR_BDB = 108,6,32,0 £; i lock bdb address (used by $Sextend for rel. file) | ; 
macro IFB$L_HBK = 112,0,32,0 %; ' hi vbn allocated. ; 
macro IFB$L_EBK = 116,0,32,0 2%; ! eof vbn. : 
macro IFBSL_SFSB_PTR = 120.0, 32.0 x; ! pointer to shared file synchronization block : 
macro IFB$L_GBSB_PTR = 124,0,32,0 2%; : genncar to global buffer synchronization block. : 
macro IFB$L_PAR_COCK {8 = {26.0,32,0 %; | Parent lock ID for bucket locks (get from SFSB.) : 
macro IFB$W_AVLEL = T g 0,16,0 &: ' local buffers available. : 
macro IFBSW-AVGBPB = 134,6,16,0 &:; i gbl ptr blocks available. | : 
macro IFBSL-GBH_PTR = 136.0,32,0 &; ! pointer to global header. : 
macro IFB$L_AS_BEv = 140,0,32,6 x; ! assigned device characteristics | F 

AS_DEV and me *) } : 
macro IFB$L_ASDEVBSIZ = 48.9 2,0 %; |! assigned device buffer size | 3 
macro IFBS$L-BLBFLNK = 152,0,32,0 %; ! Forward Link to BLB chain. ; 
macro IFB$L_BLBBLNK = 156,0,52,0 %; ! Back Link to BLB chain. ; 
macro IFB$B_JNLFLG = 160,6,8,0 2: : qournes Soa attribute flags ; ; 
macro IFBSV_ONLY_RU = 166,6,1,0 &:; ' Recovery Unit journaling, no access outside RU 3 
macro IFB$V_RU = 160,1,1,0 &; : poqesers Unit journaling ; 
macro IFB$V_BI = 160.¢-1 60 i; ! Before Image journaling ; 
macro IFB$V_AI = 160, 168 i; ! After Image jouraling 3 
macro IFB$V_AT = 160,4,1,0 2%; ! Audit Trail journaling : 
macro IFBSV_NEVER_RU = 160,5,1,0 %; ! never do RU journaling 3 
macro IFB$B_RECVRFLGS = 161,6,8,0 i; ! Recovery flags : 
macro IFBSV_RU_RECVR = 161,0,1.6 q; ! Recovery Unit Rollback in progress 3 
macro IFBSV_AI_RECVR = 161,1,1,0 2; ! Al Roll Forward Recovery in progress : 
macro IFB$V_BI_RECVR = 13! 2,1,0 2; ! BI Roll Backward Recovery in progress : Te : 
macro IFB$B_JNCFLG2 = 16 6.8.6 x: ! Secondary journal ing flags Cpqneral ty operation specific) F 
macro IFBSV-VALID_AT = 162,0,1,0 &; ! AT entry in IFB buffer is valid and should be written ; 
macro IFBSV_JNL = 162.1.1.6 {; ; gournes tne nitialized for this file : 
macro IFBSV_RUP = 162,2,1,0 2%; ' Recovery Unit in progress . 3 
macro IFBSV~RU_RLK = 162,8,1 6 %; ! fake record locking during recovery unit : 
macro IFB$V_DONE_ASS_JNL_= 162,4,1,0 %; | Journal channels already assigned : 
macro IFBS$L_RJB = 16%,0,32,0 2%; ! RMS Journaling Block address 3 
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95 macro IFB$W BUFFER OFFSET = 168,0,16,0 %; ! ANSI buffer offset 
38 Literal IFBSK_BLN_REL = 180; 
a Literal IFBSC_BLN_REL = 180; 
99 | ++ 
00 : | 
4 indexed org specific fields 
0 Literal IFBS$S iFeorel = 180; 
04 macro IFBSL_MRN = if 0,32,0 %; ! (rel) max record number 
305 macro IFBSL-DVBN = 176,0,32,0 &: ! (rel) first data bucket vbn 
Literal IFBSK_BLN_IDX = 184; | 
0 Literal IFBSC_BLN_IDX = 184; 
30 literal IFBSK_BLN = 184; ! ifab Length 
0 Literal IFBSC_BLN = 184; ! ifab Length 
. | 
Literal IFBSS_IFBDEF2 =_184; 
macro IFBSL_IBX_PTR = 172,0,32,0 %; ! (idx) pointer to primary key index descriptor 
macro IFB$B_AVBR = 176,0,8.0 %: ! (idx) vbn of 1st area descriptor 
macro IFBS$B_AMAX = 177,0 8-8 2; ! (idx) total number of area descriptors 
macro IFB$B_NUM_KEYS = 178,0,8.0 %; i (idx) ! of keys in file | 
macro IFB$B8_UBUFSZ = 179,0,8,0 %; ! (idx) update buffer size for keys 
macro IFBSW_KBUFSZ = 180 0:16,0 &: ! (idx) key buffer size 
macro IFBSB_EXTRABUF = 182,0,8,0 &; ! (idx) number of extra buffers for ‘cache'ing 
macro IFBSB_PLG_VER = 183,0,8,6 x; ! (idx) prologue version number 
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tees MODULE SIRBDEF *** 
IRB field definitions | 
Internal rab (irb) 


There is 1 irab per connected record access stream 


NOTE: The fields thru JNLBDB inclusive are common between the irb and ifb 
teral IRB$C_BID = 10; ! irab code 
teral IRBSM~POSINSERT = 1; 
teral IRBSM_SRCHGT = 2; 
teral IRBSM_POSDELETE = 4; 
teral IRBSM_NE ( 
teral IRBS$M_SRCAGE 
teral IRBSM_NORLS R 
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$M_DUPS SEEN 
$M~BKT_RO = 3; 
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‘eS g 8 Literal IRBSM_BIG_SPLIT = 4; : 
pes Literal IRBSM_SPL IDX = 1; ‘ 
> 6.13546 Literal IRBSM_EMPT_SEEN = 2; ; 
3 9555 Literal IRBSM_VALID_AT = 1; : 
i 1396 Literal IRBSK-BLN_REL = 100; ‘ 
; 935 Literal IRBSC_BLN_REL = 100; ‘ 
: 1328 1 +4 ; 
s; 359 @ : : 
; : s 8 ; sequential org specific fields . 
3; (1 6¢ 0 literal IRBSK -BLN.SEQ = 108; ; 
‘ee 8 Literal IRBSC_BLN’SEQ = 108; : 
: ©1364 literal IRB$S_ TRODEE = 108; : 
3 : i 8 } to apply from start of irab ; 
; | +4 ; 
s tser @ : : 
s 3368 @& : the following bits are defined in common : 
>; 1369 0 ! with the ifa ; 
s sro 9 ! $ 
; 371 90 macro IRBS$V BUSY = 4,0,1,0 %; ! file busy | > 
; 1376 0 macro IRBSV_EOF = 4 1.1.6 i; ! stream positioned at eof : 
; 13f? 4 macro IRBSV PEF IMAGE = 4,2,1,0 %; ! flag for indirect processing of process- : 
; !  permanen 3 
; 375 @ nacre IRBSV_A ASYNC = 4,3,1,0 2%; ! asynchronous i/o request ; 
: 1376 macro IRBSV_ASYNCWAIT = 4,4,1,0 %; ! $wait issued for asynchronous i/o request | ‘ 
: 1378 0 i ; 
: tT 8 irab specific bits : 
: 1381 0 macro IRBSV_FIND_LAST = 4,5,1,0 % ! last operation was a find : 
3; 3e2 @ macro IRB$V_PUTS LAST = 4,6,1,0 % ! last operation was a put sequential | ’ 
3 ti 8 macro IRBSV BIO CAST = iii ‘ i hein Sgeren ten is/was a block i/o operation : 
; ! note: $ s se mixe ock and recor 3 
> 1385 0 : operations (bro access). after call to rm$rset ‘ 
> 1386 0 . refers to the current operation and bro_sw gives : 
s,s Ser @ : ype of Last operation. : 
; +4 macro 1RBSv "BRO Sw = = 3°4'0'S: %; aehbnpg > on "ina" operation to block i/o operation : 
3 macro e = operation is a fin : 
; 1398 9 macro IRB$V_RAHWBH = aioe) 6% : read ahead or write behind processing | : 
: 1333 macro IMBSV-SKIPONERT. = 4-11 1,0 %; } va Pepe peer’ Tee for index fo | ‘ 
3 macro fe = ° ; ' cate reco en ; 
: 1398 0 macro IRB$V_UNLOCK RP = £.13°3.0 %; ! release lock on current (rp) record : 
; «61394 macro IRB$V_PPF_EOF = 4 14,1.0°%: ! give one-shot rms$_eof error on sys$input : 
: 133? macro {Resy— PPF aoKIP = 4.15,4.0 g; ! skip sys$input record ($deck), redoing $get : 
3 or nd on next recor 3 
3 od macro ta 2 tie hs Sa : 4516-160 %; sexe notes See find a ppf_skip set : 
; macro & = 4,17,1,0 &:; ndex update error occu 3 
; 1399 0 macro IRB$V_RRV_ERR = 4,18,1,0 2; ' rv meaete error occurred F 
; 1400 0 macro IRB$V_UPDATE = 4,19,1,6 %: ! operation is an update (indexed) : 
: 1401 0 macro IRBSV_UPDATE IF = 4.26.1,6 %; ! operation was a $PUT -> SUPDATE : 
: 1406 4 macro {RESV_ABOVELEKD "i 4 1-49 33 Level above was Locked by by search_tree : 
3 macro a = 4,22,1,0 2%: ! obal buffers are in : 
: 1404 4 macro IRB$V_CON_EOF = $-38 1,0 2; ‘ ile positioned at EOF by "SCONNECT a : 
: 1405 macro IRB$V_NO_O WAIT = 4 ¢4 1,0 &; ' do not wait for enqueues on yery locks : 
> 1406 0 macro [RB$V~ pPr -EcHO = 4,25,1,6 2: i echo SYS$INPUT records to SYSSOUTPUT | : 
: 1407 0 macro IRB$V-RMS-STALL = 4 26,1,0 {; ! RMS is stalled on this record psa A ; 

| >; 1408 O macro IRB$V_RESTART = 4,27,1.0 %; ! Reconnect operation in progress PF 


Bee LTR SR PPE yaa ee a eee 


H 
15-Sep-1984 22:56: VAX-11 Bliss-32 V4.0-742 Page 30 
13286871 382 35:30:98 "$255SDUA2B: CRMS .OBJIRMS .R32: 1 . (9) | 
; 1409 macro IRBSV_DAP_CONN = 4,28,1,0 %; ! connect func ttn was performed via dap ; 
; 1610 macro IRB$V_RU_DELETE = 4,29,1,0 &: ! recovery unit deletion in progress : 
>; 614611 macro IRBSV_RU_UNDEL = 4 $0.1,6 x: ! recovery unit un-deletion in rogress ‘ 
; 1216 macro RBSV_RU_UPDATE = {,1,0 {; ! place new record is special RU UPDATE format ‘ 
: 1614 ithe following are alternate definitions for alternate ; 
; 1232 } (non-conflicting) use of the above bits : 
: 1213 macro IRBSV_WRITE = 4,9,1,0 2; ! operation is a write | ‘ 
: (1418 L macro IRBSL-IFAB_LNK = 6,6,32.0 %; | pointer to ifab | ; 
: 1419 macro IRBSLBKPBITS = 4,6,52,6 4; i bookkeeping status bits | ; 
> 1621 macro IRB$B_BID = §-8.8.8 %; ! block id | ‘ 
; 1° ¢ 8 macro instepiee. 10°6's He lore peneth in Longwords : 
; macro » = : 3 caller's mode | : 
> 1426 0 macro IRBSB_EFN = 11.6.8 6 3; ' event flag for synchronous io : 
3 3425 @ macro IRB$L_I0S = 12,0, $0 k; ! internal i/o status block . 
>; 1426 0 macro IRB$L_BWB = 12,0,32,0 1%; ! bucket wait block for inter stream Locking : 
: 1627 0 macro IRB$W710S2 = 14,6,16,0 &: i high word of io status block | 3 
>: 1428 0 macro IRB$L_10S4 = 16,0,32,0 2; ! jo status block (2nd Longword) : 
3 i? 9 . macro bs eS = 560 5043200, sasens Of Deraanent ReymacetaNs context block | : 
3 macro a = 24,0,52,0 2; user addres ; 
3 1431 0 ! if async, points to copy at head . : 
$s 63452 © ! Of async context block : : 
:; 1433 0 macro IRBSL_IRAB_LNK = 28,0,32,0 %; ! pointer to next irab : 
>; 1434 0 macro IRB$L_CURBDB = 32,0, 2,0 2; ' current bdb address : 
; 1435 0 macro IRBSL_LAST_RAB = $6°0,$2.0 2; ! address of rab for last operation 3 
; 61436 0 macro IRB$W_ISi = 40,0,16,0 2%; ! Internal stream Identifier, the one we gave to the user : 
s 1437 0 macro IRBSL_ATJNLBUF = “8 32,0 %; ! address of IRAB audit trail journaling buffer 3 
3 pe + 4 macro IRBSL_JNLBDB = 48,0,32,0 %; ! address of journaling BDB for RAB operations ; 
; 1449 9 macro [RBSL_IDENT = 520.5240 2: | process unique identifier for the IRB | : 
3 macro 7 = 3 ! pointer to s ; 
; Wek 0 macro IRB$L_NXTBDB = 60 g. 52 6 x; ' nent bdb address 3 
>; 14435 0 macro IRBSL-NRP = 64,0,52.0 &; ! mext record pointer (relative record number) ; 
:; 1444 0 macro IRBSL_NRP_VBN = 64,6,32,0 2; ! mext record pointer (relative) ; 3 
; 1445 0 macro IRB$B_CACREFLGS = 64°0.8.0 &:; ! cacheflags for calls to getbkt,cache, etc. (indexed) : 
HEB RES UMREECSROUENGS = EE-E-Hieath, | Least, ty seen at en pee search Cindénee ea 
: macro = 66,0, 3 ' searc exe : 
; 1os3 8 macro iRoey coe imeent 66,051 ,6 2; position for insert F | : 
: macro a = 66, : ! approximate searc ; 
3 1450 0 macro IRBSV_POSDELETE = 6.4.1.0 %; } Sesition for delete” ; : 
s 1631 macro IRBSV_NEW_IDX = 66, 116° z; } need to read in new idx dsc from file : 
: 1626 macro IRB$V_SRCAGE = 66, gig a : : approximate search ge . ; 
‘ 2 macro IRBSV_NORLS_RNF = 66,5,1,0 2; ! don't release bkt_ on rnf error, if set : ; 
; 6.1454 macro IRBSV_FIRST_TIM_= 66,6,1,0 2; ! flag to indicate ist time for seq. processing : 
3 3633 @ macro IRBSV_PRM = 66,7,1,0 2: ! flag to indicate that the permanence bit in the bdb 3 
; 1456 0 macro IRBSV_DUP_KEY = 66:8,1,0 2: a cups cate key seen on scan of any data bucket : 
; 1457 0 macro IRBSV_DEL_SEEN = 66,9.1,0 &; ! a deleted record has been encountered between current : 
3 1¢28 0 macro IRBSV-LAST.GT = 66.10.10 %: result of Last search of compressed key bucket was GT : 
; ! and a next record during a : 
; «©1460 0 ! should be set . : d : 
: 1461 0 macro IRBSL_NRP_OFF = g8 0 32 0 %; ! mext record pointer offset (relative) : 
3 1406 4 secre ines. -cunven = 68 5 ,52,0 8 vbn of current record (relative) : 
2 macr = = s e ° . . . s 
:  »=61464 8 macro IRB$B_SPL_BITS = 68.6,8.0 %: ! bits for splitting (indexed) : : 
; = 1465 macro IRB$V_BKT_NO_LO = 68,6.1.0 4; ! low bit of bucket number processing : 
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macro IRB$B_NVBNS number of vbns transferred (nxtblk1) 
indexed org specific fields 


literal IRBSK_BLN_IDX = 196; 


; 1666 8 macro IRBSV_NEW BKTS = 68,1,2,0 %; ; 
: 146 Literal IRBSS NEW _BKTS = 2; ! number of new buckets (0-3) : 
3 ee macro IRB$V_REC_W'LO = 6 3.1.0 2; ! if splitting at pos. insert than rec goes w/ lo ; 
TS RES TRREERMTT GyOb-tcaeg rie, bakde tose eontacuteryet 3 
: (1471 macro IRBSV-EMPTY BKT = 66.4.1.6 %; i bucket contains no data records : 
: 1026 maere pREsV pups SEEN = 5 6 ¢ 2; ! dups seen on scan of bucket, any key : 
1474 Literal IRBSS BRT NO = 2;' °° 3 
: 1475 macro IRBSV_BIG_SPLIT = 8.2.1.0 %; ; 
: 1678 macro IRBS$V_SPL_IDX = 68,0,1,0 2; ! split up new index record and swing pointer : 
: «6147 macro IRESV_ERPT Seen = 68:1,1,0 %; ! empty bucket passed over on posinsert ; 
HRP RES URRSE NectePHetotehio x, | Feegrd pointer (retatiye,reore 1 : 
; 1600 macro pResu_POS INS * 46 18.0 k; offset or position tor insert for put (indexed) : 
3 r = : H ‘ 
i 1488 macro IRBSL-RP_OFF = 76.6 i 0 &; i record pointer offset : 
>; 1483 0 macro IRBSL-LST_REC = 76,0, $0 i; ! last record address (indexed) ; : 
; MBS B RRS InabucherorPh= resovigcéray’ | Pacorg’patteer*oriZeg nene7=rry Cindexee 3 
; 1486 0 macro IRB$W-SPCIT_1 = 76,6,16,0 &; i second split point -- 3-bkt split (indexed) | ‘ 
; He 14 macro + lt 0 gig we © third sp it goiet -- 4-bkt sp it (indexed) : 
| NEB BREE UReavrbunetD'? aosocteso'R. | Sager oarthet peuceseetg (pias ce fi 
> 1490 0 macro IRB$W_OWN_ISI = 2.0.16 0 &; ' isi value for this irab 3 
3 1o2) 8 macro ts 3 5°80 %; } 9 yotye for =e process-permanent irad : 
; macro cf = $ ‘ o buffer coun - 
; 1298 0 macro IRB$B_MBC = 85,0,6,6 2: ! multi-block count : 
: 1494 0 macro IRE$WRSZ = 86.0,16.0 &; ! record size from user : 
; 61495 0 macro IRBSL_RBF = 88,0,32,0 2%; ! user record buffer address : 
tee Bo Sees Hee ner COS Nek | ot ie fotesllan fig en te 
; 1<o8 3 macro IRB$SV_VALID_AT = 98.6.1.0 &: i TRB MJB contains valid AT entry to write | : 
; 1500 0 i | ; 
; 3301 @ ! start of organization dependent fields 3 
; 1306 0 ‘ | ; 
3; 303 @ | ++ 3 
:; 1506 QO : 3 
; 1383 4 : used by sequential and relative files : 
; 1307 3 macro IRB$W_CSIZ = 98,0,16,0 %; ! current record size (seq) | 2 
: 1509 2 i ; 
: HF 34 8 ! relative org specific fields | : 
; 1312 0 macro IRBSL_TEMPO = 100 0.32,0 3; | 3 
; 313 @ macro IRBSW-ROVHDSZ = 100,0,16,0 %; ! overhead size for record : 
; 1574 0 macro IRB$B_ CCTL = 106 6.8.0 &: ! ‘pre’ carriage control ; 
: ©1815 macro IRB$B_POST CCTL = 1 1,6,8,0 &; ! ‘post’ carriage control : 
: 1318 macro IRB$W_RTOTCSZ = 106.8 16,6 %; ! total size for record : 
; 1517 0 macro IRBSL-TEMP1 = 104,0,32,0 2; ; 
: 1518 0 = 104,0,8,0 %; ! ; 
: 1519 ; 
; Tee : 
; 13) 3 
s wee : 
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: ©1523 Literal IRBSC_BLN_IDX = 196; ‘ 
; 1826 Literal JRBSS-IRBDEF1 = iG : 
: 1525 macro IRBSL_KEYBUF = %8 0 0 %; ' address of internal key buffer & update buffer ; 
3 .6C« § macro IRBSL_UPDBUF = 1 6,6, 8 4; ! address of internal update buffer > 
: eS macro IRBSL_RECBUF = See 230.0 2; ! address of internal record buffer ; 
; 1528 macro IRBSL_OLDBUF = 108 0 %; ! address of internal old record buffer (updates only) : 
3 2 9 macro IRBSL_RFA_VBN = 118.6, 0 &; ! save record vbn for nrp data ; 
; 1550 macro IRBS$L_UPD_BDB = 11 0 %; ! save current bdb during insert operation : 
>: 1531 macro IRBSL-LAST_VBN = 118.6 2,0 &; i Last vbn at data level for update ; 
s ¢ 0 macro IRBSW_RFA_TD = 116 16.0. %: ! save record id for search data : 
: 1533 0 macro IRBS$WILAST_ID = 116,6,16,0 &: i id for udr during update (plg 3) | ; 
i 1934 Q macro IRBSW_SAVE-POS = 11 9.1 9 {; | save duplicate position for nrp data | ; 
.) tae macro IRBSL_NEXT VBN = 12 3 i; ! save next user data record VBN for nrp data : 
; 1536 0 = macro IRBSL-PUTUP_VBN = 1 6.6, $0 &; i RFA VBN of SPUT/SUPDATE record | ; 
3 123f 0 macro IRBSL_FIRST_VBN = 124, 0 %; ! save SIDR first element VBN for search NRP data > 
s You @ macro IRBSW-NEXT TD = 128,0,16,0 %: ! save next_user data record ID for nrp data : 
: 1539 0 macro IRBSW-PUTUP_ID = 126,6,16.0 %; {| ID of $PUT/SUPDATE record | ; 
; 15460 0 macro IRBSW_FIRST_ ID = 130,0,16.0 2; ! save SIDR first element ID for search NRP data : 
: 1541 0 macro IRBSL_LOCK_6DB = 1 eoRe3 0 &; ' Lock bdb addr of level below on splits ; 
; 136g 0 macro IRB$L_VBN_CEFT = 1 3 0 0 %; ' left vbn of sp : 
; 1543 0 macro IRBSL_MIDR_TMP1 = 1 6,6, g.0 {; : equperery one for make index | ; 
; 1544 0 macro IRB$L_VBN_RIGHT = 140,0,32,0 %; ! right vbn of split : 
s 13545 @ macro IRBSL_MIDR_TMP2 = 148-8 32,0 %; ! temporary two for make index : 
: 1546 0 macro IRBSL_VBN MID = 144,0,32,0 3; i middle vbn of split | ; 
>; 1547 0 macro IRBSL_MIDR_TMP3 = 144°0,$2,0':; ! temporary three for make index ; 
; 1548 0 macro IRBSL_NEXT_DOWN = 144,0,32,0 %; ! used by search_tree , ‘ 
; 1849 0 macro IRB$L_REC_COUNT = 148,0,32,0 %; |! number of current record in this bucket (plg 3) : 
s 3399 ®@ macro IRBSL_LST_NCMP = sf 6 32 6 x; ! address of last key with zero front compression (plg 3) ; 
.) ta = macro IRBSL~SPL~COUNT = 156,6,32,0 4; ! number of the first record to be moved into new bucket ; 
: 132¢ 0 ! when splitting indexes and SIDRs : 
s 393 @ macro IRBSW_NID_RIGHT = 160,0,16,0 %; ! Next record ID of the right bucket : 
: 1554 0 macro IRBSW-NID-MID = 162,0,16,0 2%; i Next record ID of the middle bucket | ; 
. ta & macro IRB$W_RFA_NID = He 0 x; ! Next record ID of the RFA bucket : 
: 1556 0 macro IRBSB-KEYSZ = 166 Q. 9 {: i size of key in keybuffer ! ; 
; 11557 0 macro IRB$iL_CUR_VBN = 168:0,32.0 %; ' VBN of current record (primary/SIDR) adi F 
; 1558 0 macro IRB$L_POS_VBN = Vee eB o5°8 %; ! VBN of primary data record for NRP positioning 3 
s 1359 @ macro IRB$L_UDR_VBN = 176,0,32,0 %; ! VBN of current primary data record F 
; 1560 0 macro IRB$L_SIDR_VBN = 186,6,32,0 &; ' SIDR array first element VBN of current record (SIDR) 3 
; 1561 0 macro IRB$W_CUR_ID = 184,0.16,0 %:; ' 10 of current record (primary) nas F 
3 1266 0 macro IRB$W.°0S_ID = 186,0,16,0 2; ! ID of primary data record for NRP positioning 3 
; 1563 0 macro IRB$W_UDR_ID = 188,0,16,0 2%; ' ID of current primary data record 3 
5 1564 0 macro IRB$W_SIDR_ID = 196 g.18 0 &; ' SIDR array first element ID of current record (SIDR) 3 
s Wee @ macro IRB$W-CUR COUNT = 192:0,16,0 %; ' SIDR array count of current record (SIDR) : ; 
; 1566 macro !IRB$B_RP_RREF = 194,0,8,0 {: ! Key of reference by which next record is retrieved 3 
; 1200 macro IRB$B_CUR_KREF = 195,6,8,0 &:; ' Key of reference of current record (primary/SIDR) : 
; 1269 8 peer MODULE SASBDEF *** : 
: 1371 9 ! ASB field definitions : 
5 1378 Asynchronous context block (asb) : 
; 1575 0 : There is one asb per irab petated to by irb$l_asbaddr allocated at : 
; 1376 0 connect and one per ifab which is dynamicaly allocated at stall : 
; «©1578 : The asb$l argist is pointed to by the arglst field of the | : 
:; 1579 0 ! irab if the irb$v_async bookkeeping bit is set : 
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| 
1 
: ALL of the asb$c_bln_xxx must be longword aligned 
literal ASBSC_BID = 13; ! asb id = 13 | 
Literal ASBSK_BLN_FIX = tB: ! block Length of fixed asb 
Literal ASBSC_SLN_FIX = 48; ! block Length of fixed asb | 
: ron 4 an are saved on stack 
Literal ASBSK_BLN_SEQ = 188; ! plock Length for seq org irab operations 
Literal ASBSC_BLN_SEQ = 188; ! block Length for seq org irab operations 
Literal ASBSK_BLN_REL = 192; ! block Length for rel org irab operations 
Literal ASBSC_BLN_REL = 192; ' block Length for rel org irab operations | 
Literal ASBSK_BLN_FAB = 2 3 ! block length for fab-related operations 
Literal ASBSC_BLN_FAB = ; ! block Length for fab-related operations 
Literal ASBSK_BLN_IDX = 512; 
Literal ASBSC_BLN IDX = 512; 
Literal ASBSS-ASBDEF = 512; 
macro ASBSW_STKLEN = 0,0,16,0 2%; { save stack length (must be first word in block) 
1 STKLEN = BLN org - BLN FIX | 
macro ASB$W_STKSTZ = 2,0,16,0 %; ! size of saved stack in bytes 
macro ASB$B-BID = 8,0,8,6 %: i block id 
macro ASB$B_BLN = 9,0 8-6 z; ! block Length in longwords 
macro ASBSL-ARGLST = 12,0,0.0 %; ; | 
Literal ASBSS_ARGLST = 16; ! saved argument List on async irab operations 
macro ASB$B_ARGCNT = 12,0,8,0 %; ! argument count 
! “yalue will be 0, 1, 2, or 3 
0 macro ASBSL_FABRAB = 16,6,32,0 %; ! fab or rab address 
macro ASBSL_ERR = 0.0. 32.0 i; ! err routine addr 
0 ss 4,0,32,0 %; ! suc routine addr 
0 macro ASBSL-REGS = 26,0,0.0 %: : 
0 Literal ASBSS_REGS = 20; ! save register area for regs 6, 7, 8, 10 and 11 
macro ASBS$L 8,0,0,0 %; 


$L_STK = 4 
Literal ASBSS_STK = 146; ! saved stack area 
!ee® MODULE SBDBDEF *** 
BDB field definitions 
buffer descriptor block (bdb) 
| 


there is one bdb per i/o buffer : 
( the i/o buffers exist in separate pages, page aligned) 


teral BDBSC_BID 
BDBSM_VA 


! 12; ! bdb id code 
iteral BDBS$M_DRT 

i 

i 


teral eoesn. ioe 


i oll ead cual anal ele 
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forward Link 
backward Link 
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block 1 
fs block length in longwords 
macro BDB$B_FLGS = bdb flags 
macro BDB$V_VAL = 
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; ©1637 macro BDBS$V_DRT = 10,1,1.0 %; ! buffer content dirty ‘ 
> 61638 macro BDB$V_IOP = 1 gel. 2; ! puffer has i/o in progress : 
: 1639 macro BDBSV_PRM = 10,5,1,0 %:; ' buffer has permanence factor : 
; 1640 macro SpBSV “ors 10, =°16,4,1,0 %; ! buffer shared - no locate mode : 
3; 164) 9 macro BDBSV-WFO = 10,5,1,0 &; ! other streams awaiting : 
: 1966 8 macro BDBSV_AST_DCL = = 10°6.1.0 %; ! ast has been declared for : 
: 3 36164 wait ng Stream : 
; 616466 0 i the releasing of this bdb 3 
3 1665 0 ! (set/cleared by rm$cache) ; 
>; 1646 Q macro BDBS$B_CACHE vA. = 11,0,8,0 %; ! relative value of byf ter in cache : 
; 1647 O macro BDB$B_VERTYP = 11,0 8.6 £; ! version type (1 = wi! ; 
> «6.1648 8 macro BDBSW_USERS = 12 2,6,16.0 %: i number of streams Sierent ten this buffer : 
> 1649 macro BDBSW-BUFF_ID = 16,0. 16.0 ; i buffer identification number | ; 
; 1650 0 macro BDBS$L_BLB PTR = 16,0,32,0 2%; ! pointer to BLB chain for this 8DB ; 
s 1631 @ macro BDOBSW NOME = 20,0,16,0 4; 2 eh s of buffer in use : 
: 1658 9 macro BDBSW-DIRSEQ = 20,0,16,0 %; i UCBSW.DIRSEQ at directory read time 3 
; 1653 0 macro BDBSWISIZE = 22,0,16,0 2; i! bytés in buffer | : 
:; 16546 0 macro BDBSL_ADDR = 24,0,32,0 a; ! address of buffer ; 
: 1655 0 macro BDBSL_VBN = 2 6.8 6% i 4st vbn in buffer ; 
:; 1656 0 macro post ovaries = 0,3 35 0 q; ! vbn seq number of validity check vs. bcb copy ; 
: 1657 0 macro BDBSL_LAST 2,0, g.6 %; ! address of last Sirectory record | : 
; 1658 O macro BDBSL_WAIT = 36,0,32,0 2%; ! wait thread (irab addr) ; 
>; 1659 0 ' “(for inter-stream intra- : 
; 1660 0 ! process locking only) ; . 
; 1661 O macro BDBSL_VERCOUNT = 36,0,32 4 q; ! negative count of version entries scanned ; 
: 1998 0 macro BDBSL-ALLOC_ADDR = 40,0,32,0'%; ! buffer allocation addr : 
; 1663 0 macro BDBSW_ALLOC’SIZE = 44,0,16,0 %; ! buffer allocation size } . 
>; 1664 0 macro BDB$L_B1_B8DB = = 48.0.32.6 Le ! address of isam/block i/o bi journaling 8DB : 
; 1665 0 macro BDB$L_AI BDB = 52,0,32,0 2%; ! address of isam/block i/o ai eation BDB ; 
: 3660 0 macro BDBST-JNCSEQ = 56,0.0,6 3; | ; 
: 1667 0 i:teral BDBSS {Muses = 16: ! Journaling Sequence Number Block | : 
: 1668 0 macro BOBSL_WR1 = 72.0 3 0 %; ! work area | : 
; 1669 0 macr> BDBSB-REL_VBN - 72,0,8,0 %: i current vbn rel to start of buffer ; 
; 170 Q macro BDB$B_ vr =VBNS = 7$,6,8,0 &:; ! ! of valid vbns in buffer : 
; 1671 O macro BDB$B_PRE-C.:_ = 74,0,8,0 2%; ! unit record carriage control byte ( ‘pre') 3 
: 1076 0 macro BDBS$B_ eri, = 75,6,8,0 &; ! unit record carriage control byte (‘post’) 3 
; 1675 0 macro BDB$L~CURBOF. °"% = 76,0,32,0 &; ! current buffer addr : 
> 1674 0 Literal BDBSK_ = 0; ! Length of bdb block 3 
: 1675 Q Literal BDOBSC_BLN = 80; ! Length of bdb block 3 
; 1676 0 literal BDBSS-BDBDEF1 = 80; : 
: 1677 0 macro BDBS$L 1088 . 72,0,0,0 %; ; 
> 1678 0 literal BDBSS. I = §; ! i/o status block for buffer ; 
; 1679 0 macro 8DBS$L VERSION = 72,0,32,0 %; ! addr of current/next directory version entry : 
3 1939 8 macro BDBSL_RECORD = 76, 6, $2, 6 %; ' address of current/next directory record ; 
e ‘ a 
: 1982 0 te#* MODULE SGBPBDEF *#* | ; 
@ . | e 
; ey: 0 GBPB field definitions : 
3 1686 o Global Buffer Pointer Block (GBPB) : 
5 1688 0 : The GBPB is the process local structure used in conjunction with : 
: 1689 0 : shared hae i/o buffers. In order to minimize the impact of : 
; 1690 0 : lobal buffers on existing code, the GBPB is identical to a BDB : 
3 1691 0 : n those fields which are referenced outside of the RMSCACHE and 3 
: 1636 8 RMSRELEASE routines. : 
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Literal GBPB$C_BID = 21; ! gbpb id cod : 
Literal GBPBSK_BLN = 283 ! ength of GBPB block ; 
Peers sores oper A 40: ! Length of GBPB block : 
macro GBPBSL_FCINK = 0, 33:0 %; ' forward Link : 
macro GBPBSL_BLINK = 4,0,32,0 %; ! backward Link : 
macro GBPB$8_BID = g. 78.0 &; i block id ; 
macro GBPBS$B_BLN = 0: 9 2; ! block Length in Longwords : 
macro GBPB$B_FLGS = {0,0 0 3: | gbpb flags (use BDB flgs definitions) | ; 
macro GBPB$B_CACHE_VL = 11.0,8.0 2%; i felative cache value of this buffer ; 
macro GBPBS$W_USERS = 12,0,16.0 %; ! number of streams referencing this buffer : 
macro GBPBS$W_BUFF_ID = 14,0, 16.0 %; ! buffer identification number : 
macro GBPB$L_BLB PTR = 16,0,32,0 %; ! pointer to BLB chain for this GBPB : 
meee eee SU ine = So-Brie-8 i) Sale ae | 
macro GBPBSL-ADDR = 24,0.32,0 &: i address of buffer | : 
macro GBPB$L_VBN = 2 0.3 6%: i 1st vbn in buffer ; 
macro GBPBSL_VBNSEQNO = 0,32,0 %; ! sequence number field. : 
macro GBPBSL_GBD_PTR = 36,6,32.6 x; ! Pointer to the GBD for this buffer. | ; 
tees MODULE SRLBDEF *** | ; 
RLB field definitions | : 
record lock block (rlb) : 
i The rlb describes one locked record for a particular : 
, process-record stream (rab/irab). if the owner field : 
: is 0 then the rlb is available for use. otherwise, it : 
' describes a locked record. note: when owner is 0 the 3 
record rfa fields are zeroed (0). : 
i : 
i peewee een eee ee ene we wee er wee ere mmr e er mew ne ewe + : 
: rlb: : Link ' : 
' ww eee ewww nnn em eee pew er oe eee een ee eee woe + | P+ 
: rtas id : 
; flags Ireserved! bin i bid ; 
i rfa0 ; ; 
‘ ¢weeeeoeeooeeeeeeoeeeeeeeeeeeeseeeeeseses + F 
! owner ‘ : : 
i Lksb: ! Still to be def- | VMS status code ;} : 
H ined status bits ! H : 
i ! Lock Id. (Returned for new locks, ! | ; 
‘ input for conversions) H : 
i ° 
literal RLBSM_TIMER_INPROG = 1; | : 
literal RLB$C_BID = 14; ' rlb code 3 
Literal RLBSM_WAIT = 1; : 
Literal RLBSM_CR = 2; : 
literal RLBSM_PW = 4; H 
Literal RLBSM_PR = 8; : 
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: 1751 Literal RLBSM_CONV =_16; ; 
3; VW ¢ Literal RLBSM_LV2 = 32; : 
; (7 Literal RLBSM_FAKE = 64; ; 
; 61754 Literal RLBSM_TMO = 128; : 
s 1755 Literal RLBSK_BLN = § 3 Length of rlb ; 
3; VW § Literal RLBSC_BL ; Length of rlb ; 
ne ae Literal er RLBDEF = 28; : 
; 61758 macro RLBSL_LAK = 32,0 %: Link to next rlb : 
s 99 8 macro RLBSL_MISC = 4,6,32.0 4; lLongword definition to optimize clearing field ; 
: 1760 macro RLBSW_FLAGS2 = 4 0,16,0 2; more flag bits : 
: 1761 0 macro RLBSV-TIMER_INPROG = 40,1, Timer queued. : 
: 1766 8 macro RLBSW-RFAG = 6,0,16,0 &: 3'rd word of records rfa : 
: 176 ! offset fdr seq f.o. (bits 6:14 ; 
>; 61766 «0 : always 0 for rel f.o. (bits 0: } ; 
3; 765 @ macro RLB$W_ID = 6,0,16,0 %; id for idx f.o. : 
; 1766 0 macro RLB$B-BID = 8,6,8:0 1: block id : 
s 76r @ macro RLB$B_BLN = 9,0,8,0 2; block Length in Longwords : 
s 768 @ macro RLB$B_TMO = 16,6,8.0 4; propagation of ROP IMO field : 
>; 1769 0 macro RLBS$B-FLAGS = {1,0.8,0 %; various Locking flags ; ; 
: 1770 0 macro RLBSV_WAIT = 11,6,1.6 %; propagation of ROP WAT bit : 
s wri @ macro RLB$V_CR = 11,1,1,0 %; defines lock manager mode ‘‘concurrent read" : 
3 1ore 0 macro RLBSV_PW = 11 -g1 8 2; allow reader access to locked record flag F 
; 1773 0 macro RLBSV_PR = 11,3,1,0 2%; used to query lock database : 
: 1774 0 macro RLB$V_CONV = {1°4°1,0 %; defines lock manager option ‘‘convert"’ 3 
; 61775 :«0 macro RLBSV-LV2 = 11,5,1,6 4: sets lock as ‘level 2°’ RU consistancy : 
; 1776 0 macro RLBSV-FAKE = 11,6,1,0 &; ! this RLB contains no Lock. ; 
: 1777 0 ~~ macro RLBSVIIMO = 11,7,1,6 &; i propagation of ROP TMO bit : 
: 1778 0 ! “indicate™''lock for write, allow : 
:; 1779 0 ! used to query lock database for : 
; 1780 0 macro RLBSL_RFAO = 12,0,32,0 2; 1'st and 2'nd words of record's rfa 3 
; 1781 O ! seq f.o. vbn 3 
; HA 0 ! rel f.o. relative record number 3 
; Wes @ ! idx f.o. start : 
>; 61784 0 macro RLBSL_OWNER = 16,0,32,0 2%; ! identification of owning stream : 
: 1785 0 macro RLBSL_LKSB = 20,0,$2,6 x; i first longword of lock status block | ; 
: 1786 0 macro RLBSW-STATUS = 20,0,16,0 %; i VMS status code — | ; 
3; iver @ macro RLB$W_S_ BITS = 22,0,16,0 2; ! various status bits : : ; 
: 17e8 8 macro RLBS$L_LOCK_ID = 24,6,32.0 &; ! second longword of lksb is lock_id : 
; 1790 0 !eee MODULE SFLBDEF *** : 
:; 1791 QO : a 
: 1736 4 file lock block definitions : 
: 1794 0 literal FLBSC_BID = $3 3 
3s 1793 @ literal FLBSK_BLN = 20; 3 
: 1796 0 Literal FLBSC_BLN = 20; 3 
; 61797 8 Literal FLBSS_FLBDEF = 20; : 
3: 1798 macro FLB$L_FCB_LNK = 0.8.36 -0 %; ! pointer to next FLB : 
: 1799 0 macro FLBS$L_RLB_LNK = 4,0,32,0 2%; ! pointer to RLBs : 
: 1800 0 macro FLB$B_BID = §.0.8.0 2; ! plock id 3 
; 1801 0 macro FLB$B_BLN = 9,0,8,0 %; ! block Length 3 
; 1808 0 macro FLB$L—1FB PTR = 12,0,32.0 % i IFAB address ; 
: Hit 8 macro FLBSL_LOCR_ID = 16,0,32,0 % ! lock id : 
5 1805 8 !eee MODULE SDRCDEF *#* : 
s  1a8 ae See: : 
: : irectory cache node definitions : 

1807 0 of t h de definit ; 
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; 1808 0 | 
; 1607 8 Literal DRCS$K_BLN = 6g: ' length of directory cache node 
: 1810 Literal DRCSC_BLN = 62; ! Length of directory cache node 

s 161) 9 Literal DRC$S_DRC = 62; 

; 18l¢ 8 macro DRCSL_NRTFLNK = 0,0,32,0 2%; ! Link to next entry, this level 

s 181 macro DRCSL_NXTBLNK = 4,0,32,0 2%; ! Link to previous entry, this level 
>; 1814 0 macro DRCSL_LVLFLNK = 8,0 0 %; ' Link to first entry, next lower level 
s. «1619 @ macro DRCSL-LVLBLNK = 12,0, 2,0 &; ! Link to last entry, next lower level 
>; 1816 0 ' note: the Links are maintained in lLru order 
; #3817 @ macro DRC$T_NAME = 16,0,0,0 %; 
>; 1818 0 Literal DRCSS_NAME = 40; : ! directory name or device and unit 

s 619 @ ! mote: stored as counted string counting count itse 

>; 1820 0 macro DRC$W_DID = 56,0,0,0 %; | 
s 3821 @ Literal DRCSS_DID = 6; ! file id for directory 
3 Sse 8 macro DRC$W_DIRSEQ = §8,0,16,0 %; ! directory sequence ! for device node 
; 1824 0 ‘eee MODULE SRLSDEF *** | 
>; 1825 0 : 
; 1358 $ release option flag definitions 

3 1828 0 Literal RLSSM_RETURN = 1; 
3; ey @ Literal RLSSM_WRT_THRU = 2 
: 1830 0 Literal RLSSM-KEEP_LOCK = 4; 
; 18351 @ Literal RLSSM_DEQ = 8; 

; 1832 0 Literal RLS$S_RLSDEF = 1; 
s 63833 68 macro RLS$V_RETURN = 0,0,1,0 %; ! return buffer and bdb to free space lists 

>; 1834 0 macro RLS$V_WRT_THRU = 0,1,1,0 2%; ! write buffer if dirty 
: 1835 0 macro RLS$V-KEEP_LOCK = 6,2,1,0 &:; i keep bdb locked | 
3 te 8 macro RLS$V_DEQ = 0,3,1,0 %; ! always release lock 
; 1838 0 ‘eee MODULE SCSHDEF *** 
; 1839 0 ' 
; Hr } cache option flag definitions 
>; 1842 0 Literal CSHSM_LOCK = 1; 
> 1843 0 Literal CSHSM_NOWAIT = 2; 
: 1844 0 Literal CSHSM_NOREAD = 4; 
; 1845 0 Literal CSHSM_ FER = 8; | 
; 1846 0 Literal CSH$S_CSHDEF = 1; : : 
>; 61847 0 macro CSY$V_LOCK = 0,0,1,0 %; ! obtain exclusive access to block 

>; 1848 0 macro CSHS$V_NOWAIT = 0,1,1,0 2%; ! do not wait for block on access interlock 

> §61849 0 macro CSH$V_NOREAD = 0,2,1,0 2%; ! do not read in block 
; 1850 0 macro CSH$V_NOBUFFER = 0,3,1.0 %; ! obtain access to block but don't allocate 
:. 383) @ ! a buffer for it and don't read it 
; 1926 0 ! collision 

; 18535 @ 

>; ©1854 0 !eee MODULE SPIODEF *** 

>; ©1855 0 : 

; 1856 0 : ‘ afr 

3 1920 4 : rms overall status bit definitions 

: 1859 0 Literal PIO$S_PIODEF = 1; j nee ae 

: 1860 0 macro PIO$V_IRHAST = 0,0,1,0 %; ! set if asts implicitly inhibited | 
3s 1361 @ ! if reset by disabled ast, ast must be re- 
3 1866 0 ' enabled , ; 5 . | 
3 1963 @ macro PIO$V_EOD = 0,1,1,0 2; ! set if searching for ‘eod' string i *input' 
: 1864 0 macro PIO$V_SYNC1 = 0,2,1,0 2%; ' sync stalled operation using efn 2 
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macro PIO$V_SYNC2 = 0,3,1,0 %; ! syne stalled operation using efn 28 
te MODULE SFTLDEF *** 
definitions for rms debug failure codes 
the following codes are rer temporary bug check tests, and are 
internal to rms. all of the codes are negative, implying that they 


do not return to the caller. probably killing the process (if not 
the entire system). 
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eh 0 

wae 0 

a. 0 

pe 0 

2-9 0 i 

: 1 0 i 

1.9 0 i 

: 1 0 i 

$ 1 0 i 

rh 0 i 

; : 0 

‘ork § literal FIL$_SETPRTFAIL = -1; ! set presses ie system service prices (rmObufmgr) 

, ¥ 0 Literal ane sikToos16 = _=2; ! stack too big for asb (rm0stall) 

$7 0 Literal FTL$_BADIFAB = -3; ! invalid ifab or irab (rmOfset, rmOconn,rm0rset ,rmOpr f lnm) 

ca 2 0 Literal FIL$_G TCHNFAIL = : get channel system service failure (rmOprf lnm 

: 1 0 Literal FTLS_ BADORGCASE = oF ! invalid orgcase value for dispatch (all rat 

: 1 0 ' level routines execept open and create) 

os 0 Literal FTL$_BADBDB = -6; ! block not a bdb (rm0bufmgr) 

: 1 0 Literal FILS_ ASBALLFAIL = -7; ! couldn't allocate an asb (rmO0stall) 

— 0 Literal FTL$_BADASTPRM = -8; 1 ast parameter not a valid ifab/irab addr (rm0stall) 

3 1 0 Literal FILS_ CANTDOAST = <9; ' couldn't redeclare ast (insf. mem.) (rm0stall) 

3 0 Literal FILS_ -NOSTRUCT = -10; i rab or fab not same on ast (rmOstall) 

: 1 0 Literal FTLS$_NOASB = -11; ' asb not allocated or stream net busy on ast (rm0stall) 

Sot | 0 Literal FTLS_ “NONXTBDB = -12; ' no next bdb available (rmiseqxfr) 

Pere 0 Literal FTL$_BADBUFSIZ = -13; ! disk buffer size not = 512 (rmiconn) 

; 1 0 Literal FTL$_ENQDEQFAIL = -14; ' eng or deq service failed (rm0reclck) 

>; 1892 0 Literal FTL$_NOCURBDB = -15; ' no current bdb before calling rm$release (rm0reclck) | 
; 1893 0 Literal FTL$_-NOPARENT = -16; ! no parent lock available for global buffer section lock (rm0share) | 
: 1894 0 Literal FTL$_DEALLERR = -17; ! ifab deallocation attempted with other block(s) 

>; 1895 0 : stitl allocated (rmsQc lose) : : : : ; 

3 1896 0 Literal FTL$_IORNDN = - ! i/o rundown inconsistency (either ifab or irab 

: 1897 0 ' table entries not zeroed) (rmsOrndwn) | 
; 1898 0 Literal FTLS_XFERSIZE = -1 size of requested transfer not equal to 
: 1899 0 ' or less on <+ current number of os 
; %900 0 i in use ane the bdb (rm0cache) 

: 1901 0 literal Ae apy ees = -20; ! bdb not locked and a keep lock request 
3 1306 0 : made release request. : F : . 
; 1903 0 literal "rILS. NODIDORF 1D = -21; ! neither a fid nor a did was set upon exit from 
:; 1904 0 ! rm$setdid (rmsOerase) | 
:; 1905 0 litera FILS _RELEASFAIL = rs ! release of non-dirty bdb failed (rm0xtnd23,rmsOextend) 
; 3908 @ Literal FTL$_NOLOCKBDB = =$ 3 ! no lock bdb found (rm0xtnd23) 
: 1907 0 Literal FTLS_NONETWORK = -24; ! network routine entered but no network support in rms | 
; 1908 0 Literal FTLS_LOCKFAILED = -25; ! failed to lock prolog (rmécreate) 

; 1909 0 Literal FTL$_BADLEVEL = -26; ' to search oF id, structure level must be 0 

; 1910 0 Literal FTLS_ASTDECERR = -27; ! ast declaration for file sharing failed 

, Wii Literal FTLS_BADGBLCNT = -28; ' lero global buffer count found when not expected (rmiccnn) 

: 1918 0 Literal FILS-ACCNTOVFLO =_-29; ! access count overflow (rm0share) 

, 1915 @ Literal FTL$_BDBAVAIL = -30; ! BDB was available and shouldn't have been. 

s 916 @ Literal FTIL$_GBLNOLK = -31; : zerere locking was not set with global buffers. 

s; 1915 @ Literal FILS_LCKFND = -32; ' A lock was found and we don't know what to do. 

s 916 @ Literal FTL$_NOBLB = -3 ! No BLB was found and there should have been one. 

; 917 @ Literal FTLS$_NOGBPB = -34; ! No GBPS was found and should have been. 

> 1918 0 literal FTL$"NOLCLBUF = -35; i Should have found a local buffer. 

>; 1919 Q Literal FTLS_NORDNOTSET = -%6; ' NOREAD not set when NOBUFFER was. 

:; 1920 0 Literal FTL$_NOTGBPB = -37; ' Found an illeg 

: 1921 0 Literal FTLS_NOSFSB = -38; ' No SFSB when allocating BLB. 
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iteral FTL$_LOCKHELD = -39; ' Attempted to return a BLB with lock_id neq 0 
iteral FIL$_RLSDRT = -40; : picty buffer rane in rete asall. 

iteral FIL$_BADBLB = -41; ! Bad BLB found in blocki ng AST routine. 

iteral FIL$_BADOWNER = -42; ! Owner field in BLB is bad in seeentoe fF routine. 
iteral FILS_GETLKIFAIL = -43; ! $GETLKIW failed in Last chance (rmsOlst 

iteral FTL$_BADEBKHBK = -44; ! tried to store an invalid EBK/HBK irakakorai 


the following internal codes are for non-fatal bug check reporting. 

these codes are positive byte values. they trigger a reportin action 

and return to the caller with r0 set to rms$ ‘bug<Bethe ug code>, 

which is an externally documented rms error Code. 

literal BUGS_BADDFLTDIR = 1; ' DEFAULT DIRECTORY STRING INVALID (RMOXPFN) 

'eee MODULE SIDXDEF *** 

IDX field definitions 

index descriptor definition 


An index descriptor block exists for each key of reference in use. 
they are not necessarily contiguous in memory. 
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! 
i 
i 
i 
i 
: 
literal 1Dx $C. BiPKes , ! id for index descriptor block 
era = 1; 
Literal IDXSM_CHGKEYS = 2; 
teral IDX$M_NULKEYS = 4; 
Literal IDXSM_IDX_COMPR = 8; 
Literal IDXSM_INITIDX = 16; 
Literal IDX$M~KEY_COMPR = 64; | 
Literal IDX$M~REC~COMPR = 128; | 
Literal IDX$C_STRING = ' string data type | 
Literal IDX$C~SGNWORD = 1; i signed binary word | 
Literal IDX$C_UNSGNWORD = 2; ! unsigned bef word | 
Literal IDX$C_SGNLONG = 3; ! signed binary long word 
prcer es IDXSETPACKED 5: 4; ehh rey long word 
era es $s ! packed decima 
61 Literal IDX$C"SGNQUAD = 6; : Sioned binary quadword 
oe itera) 1DKSC “VerRT = 0: 7; } eres pnery guecuers 
era = 0; ' Prologue two bucke 
64 Literal IDX$C ~ CAP iD = 1; ! Prolowue 3, index keys are compressed 
65 Literal IDX$C_ NCMPID Dx = 2; ! Prologue 3, index ners are not compressed 
308 Stores IDX$C_ Sseq 33 ! Prologue 3, primary key is compressed, data 
’ Ss compresse 
968 ! Prolo ve e 3, SIDR key is compressed . ? 
34 ptterss Oxsc god ae Prologue 3, primary key is compressed, 
not com resse 
44 literal *1DaSeA CMPC a 33 ! Prologue 3, primary key is not compressed 
378 literal 1DxSC eisai A ! Prologue 3, primary key is not compressed 
: ata is not compresse 
975 ' Prologue 3, SIDR ke is compressed 
976 Literal IDXSK_FIXED_BLN = 44; 
4 AA teres IDXSC_FIXED-BLN = 44; 
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Literal IDX$S_IDXDEF = af 

macro IDX$L_IOXFL = 0,0,32,0 2%; 
macro IDX$B-BID = 8.0.8.0 4; 

macro IDX$B_BLN = 9,0 8 2; 

macro IDX$L-VBN = 10,6,$2,0'X: 
macro IDX$W OFFSET = 14,0,16,0 3; 
macro IDX$B-DESC_NO = 16,0,8.0 &; 
macro IDX$B_IANUM = 18,0,8,0 %; 
macro IDX$B_LANUM = 19,0,8,0 2%; 
macro IDX$B_DANUM = 20,0,8,0 %; 
macro IDX$B-ROOTLEV = 21,0.8,0 %; 
macro IDX$B-IDXBKTSZ = g¢.6.8.0 k; 
macro IDX$B_DATBKTSZ = 0,8.0 %; 
macro IDX$L~ROOTVBN = 24,0,32,0 %: 
macro IDX$B-FLAGS = 28,0.8.0 &; 
macro IDX$V_DUPKEYS = 28,0.1.,0 2%; 
macro IDX$V_CHGKEYS = 28,1,1,0 2; 
macro IDX$V_NULKEYS = 28 g--9 %; 
macro IDX$V~IDX_COMPR = 28,3,1,0 %; 
macro IDX$V_INITIDX = 28,4,1,0 2%; 
macro IDX$V~KEY_COMPR = 8.6.1.0 t; 
macro IDX$V_REC_COMPR = 28,7,1,0 %; 
macro IDX$B_DATATYPE = 29.0.8. %; 
macro IDX$B_SEGMENTS = 30,0,8,0 2%; 
macro IDX$B_NULLCHAR_= 31,0,8,0 %; 
macro IDX$B_KEYSZ = 4 0,8,6 &; 
macro IDX$B_KEYREF = $.6,8.0 &; 
macro IDX$WIMINRECSZ = $4°0.16,0 %; 
macro IDX$W_IDXFILL = 36,0,16,6 %:; 
macro IDX$W_DATFILL = 38,0,16,0 %; 
macro IDX$B-IDXBKTYP = 46,6,8.0 %: 
macro IDX$B_DATBKTYP = 41,0,8,0 %; 
macro IDX$W~POSITION = 44,0,16,0 &; 
macro IDX$B_SIZE = 46,0,8,0 2%; 
macro IDX$B_TYPE = 47,0,8,0 2%; 

pene MODULE SUPDDEF *** 

update buffer flags 

Literal UPDSM_INS_NEW = 1; 

Literal UPDSM_OLD DEL = 2; 

Literal UPDSS-UPDDEF = 1; 

macro UPD$B_FCAGS = 0.8.0 %; 
macro UPD$V_INS_NEW = 0,0,1,0 %; 
macro UPD$V_OLD_DEL = 0,1,1,0 2%; 


te#* MODULE SGBHDEF *** 
i GBH field definitions 


i Global Buffer Header (GBH) 
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the following is the length of the fixed part of the index descriptor 


the following is repeated for each key segment 


syeeere Link to next index descriptor 


oc 
length of block 

VBN where the descriptor came from ; 
Offset into the block (VBN) of the descriptor 
Descriptor number (index into update buffer) 
area number for index buckets 

area number for Lower index buckets 

area number for data buckets 

level of root 

size of index bucket in vbn's 

size of data bucket in vbn's 

start vbn of root bucket 

index/key flags 

duplicate keys allowed 

evs can change values 

ull key value allowed 

index is compressed 

index is not initialized 

key has been compressed 

data record is in compressed form 

data type of key fie 

number of key field segments 

null character 

total key size : 

key of reference(0-primary) 

minimum record size 

index fill 

data fill 

PLG3 = type of index bucket and SIDR bucket 
PLGS - type of primary data bucket 

key segment position 

key segment size (plg 3) 

key segment datatype (plg 3) 


k 
n 
i 


sr pernase vy to be inserted from record buffer 
delete this key value using old record 


zeae 
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; 0 0 : ; 
3 i 8 } There is a Global Buffer Header for every file's global buffer section. ; 
; O78 6 wee WARNING = THIS STRUCTURE MUST BE QUADWORD ALIGNED *** : 
: 041 Literal GBHSC_BID = 17; ! Block ID code for GBH ; 
; 042 0 Literal GBHSM_CACHE_IN = 1; : 
:  g043 0 Literal GBHSM-CACHE-OUT = 2; ; 
: 044 Literal GBHSM_RLS_IN = : 
: 2045 0 Literal GBHSM-RLS_OUT = 8; : 
; | Literal GBHSM_QIO_START = 16; ; 
; 04 Literal GBHSM_QIO DONE = 32; : 
; 048 Literal GBHSM_STACL = 64; : 
: 2049 0 Literal GBHSM~THREADGO = 128; ; 
; 050 0 Literal GBHSM_BLB_ENQ = 256; 3 
; 2091 0 Literal GBHSM-BLB-GRANT = 5i2; ; 
; O26 0 Literal GBiSM_BLB_DEQ = 1024; ; 
; 2053 0 Literal GBH$M_BLB-BLOCK = 2048; ; 
>; 2054 Q Literal GBHSM_F1 = 4096; ; 
; 2055 0 Literal GBHSM_F2 = o Msi : 
; 2056 0 Literal GBHSM_F3 = 16384; ; 
5 gor @ Literal GBHSM_F4 = 32768; : 
>; 2058 0 Literal GBHSK_BLN = 88; ! Length of global buffer header structure ; 
; 2059 0 Literal GBHS$C_BLN = 88; ! Length of global buffer header structure : 
: 5000 0 Literal GBHS$S _GBHDEF = 88; : 
3 061 0 macro GBHSL_GBD_FLNK = 0,0,32,0 2; ! Self relative queue header for GBD's ; 
>; 2062 QO macro GBHS$L_GBD_BLNK = 4,0,32,0 %; 3 
: 2063 0 macro GBH$SB-BID"= 8,0,8,0 &; ! Block ID : 
>; 2064 QO macro GBH$B8_BLN = 9,0,8,0 2%; ' Length of GBH in Longwords 3 
- 2065 O macro GBH$W_TRC FLGS = {0,0,16,0 %; ! Trace flags (set to trace given function) : 
; 2066 0 macro GBH$V~CACRE_IN = 10,0,1,0 2%; ! Cache inputs : 
; 2067 O macro GBH$V_CACHE OUT = 16,1,1,0 %: ! Cache outputs : 
>; 2068 QO macro GBH$V_RLS_IN = 10,2 1,6 &: ' Release inputs : 
>; 2069 QO macro GBH$V_RLS_OUT = 16,8,1,0 &: ! Release outputs : 
; 2070 0 macro GBH$V~QIO-START = {0,4.1,0 %; i Qio inputs ; 
s ori @ macro GBH$V_Q10 DONE = 10 §.1,6 2: ! Qio outputs : 
; 2072 0 macro GBHSV-STACL = 10,6,1,0 &; i Stall inputs | 
: 2073 0 — macro GBHSV-THREADGO ='16,7,1,0 3; i Stall outputs | : 
; 2074 Q macro GBH$V_BLB_ENQ = 10 8.1.6 x; ! Bucket lock ENQ inputs : 
; 2075 0 macro GBH$V_BLB_GRANT = 10:9.1,0 %; ! Bucket lock grant status : 
; 2076 0 macro GBH$V-BLB-DEQ = 10,16,1,6 2; i Bucket lock DEQ request | 3 
3; 60 Ugo 6 macro GBH$V_BLB_BLOCK = 10,11.1.0'; ! Blocking AST received : 
; 2078 0 macro GBH$V_F1 = 191-168 %; : 
; 079 8 macro GBHSV_F¢ = 191 168 2; 3 
; 080 macro GBH$V_F5 = 10,14,1,0 2; : 
; 081 0 macro GBH$V_F4 = 10,15,1,0 2%; : 
3 082 0 macro GBH$L_HI_VBN = 12,6 3 0 %; ! Highest possible VBN value (FFFFFFFF). | : 
; 083 0 macro GBH$L_GS-SIZE = 16,0, $0 £; ! Size of total section in bytes. ; 
3 084 0 macro GBH$SL_LOCK ID = 20,0,3 9 z; ! Lock ID of system file lock. | | ; 
3 085 0 macro GBH$L_GS_LOCK_ID = 24,0,32.0 %; § Lock ID of system global section lock. 3 
>; 2086 0 macro GBH$SL_USECNT = 28 g.32 i: i Accessor count for section. ; 
3 sone 0 macro GBHSL_TRC_FLNK = ; 0.3 9 2; ! Trace blocks forward Link : 
; 088 8 macro GBHS$L_TRC_BLNK = 36,0 0 %; ! Trace blocks back Link 3 
; 089 macro GBHS$L_GBD_START = 46.6 2,0 &; ! Offset to first GBD. : 
: 090 0 macro GBH$L_GBD_END = 44,0 0 2; ! Offset to last GBD. : 
; 091 +O macro GBH$L_GBD_ NEXT = 48,6, $0 f; ! Offset to next cache victim GBD.. : 
3 092 0 macro GBHS$L_SCAR_NUM = 52,0,32,0 2%; ! Number of GBD's to scan for victim. : 
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093 : 
O38 } Global buffer statistics section 
macro GBHSL_HIT = 56,0,32,0 %; ! Buffer found in global cache 
macro GBHSi_MISS = 60,6,32.0 &; i Buffer not found in global cache 
macro GBHSL_READ = 64,0 QO %; ! Buffer read from disk into cache 
099 macro GBHSL_WRITE = 68,6,32,0_&; ! Buffer written from cache to disk 
macro GBHSL_DFW WRITE = 72,0,32.0 %; | Deferred writeback from cache to disk 
1 macro GBH$L_CROSS_HIT = 76,0,32,0 i: ! Cross process hit count. 
¢ macro GBHS$L_OUTBUFQUO = 80 8. 0 %; ! Count of times GBLBUFQUO Limit was hit. 
macro GBHSL_FILL_1 = 84,0,52.0 &; ! Force quadword alignment 


‘eee MODULE STRCDEF *** 
TRC field definitions 


algori 


Literal TRCS$C_BID 
Literal TRCSK_BLN 
Literal TRC$C_BLN 
Literal TRC$S_TRC 
macro TRCSL_ 

macro TRC$L_BLNK 
macro TRC$B_BID 
macro TRC$B8_BLN 
macro TRCS$W_FUN 
macro TRC$L_STR 
macro TRC$W_PID 
macro TRC$W_SEQ 
macro TRC$L_VBN = 
macro TRCS$L_RETURN 
macro LS op RETURN 
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macro T _ARG_FLG é 
macro TRC$L_BDB_ADDR = 
macro TRC$W_BDB_USERS = 
macro TRC$W_BDB_BUFF = 4 
macro TRC$B_BDB_CACHE = 
macro TRC$B_BDB_FLAGS = 
macro TRC$L_BDB_SEQ = . 
macro TRC$B_BLB_MODE = 
macro TRC$B_BLB_FLAGS = 
macro TRC$L_BLB_ADDR = ; 
macro TRC$L_BLB_LOCK = 


pone MODULE $GBDDEF *** 
i GBD structure definitions 


Trace block structure (TRC) 


pay saves at specific points in the RMS code for debugging and 
hm analysis purposes. 


wee WARNING = THIS STRUCTURE MUST BE QUADWORD ALIGNED *** 


Trace block code 
NOTE: should be quadwords multiple to 
NOTE: should be quadwords multiple to 


Trace block forward Link 

Trace block back Link 

Block 

Length of block in longwords | 
Function code (see GBH definitions) 
Ifab/irab address. 

Process ID 

Sequence number. 

VBN requested. 

Address of caller. 

Caller's caller. 


Function specific_arguments 
<8 gee ve flags (R3). 

BDB address. 

Use count from BDB. 

BOB buffer ID. 

BOB cache value. 

Status flags from BDB. 
Sequence number from BDB. 
Mode held in BLB. 

Flags from BLB. 

Address of BLB. 

Lock ID from BLB. 
Sequence number from BLB. 
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15-Sep-1984 22:56: VAX-11 Bliss<-32 V4.0-742 Pa 43 

1328687138 35:20:98 VE SS$DUAISSLRAS OBY IRMS.R3251 = (9) 
: 150 : | 
: i } Global Buffer Descriptor (GBD) 
: 1 : : There is a single GBD for every buffer in a global buffer 
: 154 ' section (used only with shared files). The GBD's themselves 
3 155 ; are in the section also and Linked from a queue header in 
: : § the Global Buffer Header (GBH). 
; 138 6 ! t** WARNING = THIS STRUCTURE MUST BE QUADWORD ALIGNED *#* 
: 2160 0 (iteral GBD$C_BID = 19; k 
: 2161 p Literal GBD$M_VALID = 1; Seen Aen -parnaletaiiage 
: 196 Literal GBDSK_BLN = 40; ! Length of Global Buffer Descriptor structure. 
: 2164 . terse pods i ! Length of Global Buffer Descriptor structure. 
; Ao? 4 a GBpst FC INK ~ 0.0.3.0 a: } et gt Been - Note: This is a self relative queue 
; gi67 0 macro GBD$8_B1D = 8.0.8.0 %; — i Block ID 
: 168 0 macro G8D$B8_BLN = 9,0,8,0 %; ! Block length of GBD 
; 169 0 macro GBDSB_FLAGS = 16,6,8.6 %:; ! Buffer status flags 
; 170 0 macro GBDSV_VALID = 10,0,1,0 %: | Buffer is valid. 
: 2171 0 macro GBD$B~CACHE_VAL = 11,0,8,0 %; i Cache value of this bucket 
5 176 0 macro GBD$L_VBN = 12,0,32 6 &: ! VBN of bucket the buffer describes 
; BI 9 Siero Gaost-Locecinee 20,0°85.0°8;" | LocaSfBterssytten tock. 7 “eet | 
: 2175 0 macro GBD$W_NUMB = 34.0.16.0 is) rt i Number of b tes in use” 
; 2176 0 macro GBDSW_SIZE = 26,0,16,0 3%; ! Size of buffer in bytes 
Bee Ba Se Re Be ed | 
3 = ° : ! Accessor coun r 
; ey & macro GBD$B_REHIT_RD = $4°0,8.0 &: ! Rehit by sone rocess count. 
: $180 8 macro GBD$B_REHIT_LK = 35,0,8,0 2%; ' Rehit by same locker process. | 
; 2182 0 tees MODULE SBLBDEF *** | 
3 3186 0 BLB field definitions | 
; g186 0 ; Bucket Lock Block (BLB) | 
; 2188 0 The BLB contains the argument List for the SYSSENQ system service 
: 613) 4 as well a pointer to the BDB it relates to and other status. 
; $191 0 literal BLBSC_BID = 16; ! BLB code | 
3 $136 0 literal BLBSA_LOCK = 1; | 
5 $13 8 Literal BLBSM_NOWAIT = 2; 
3 194 Literal BLBSM_NOREAD = 4; 
: 195 0 literal BLBSM_ FFER = 8; 
: 196 0 Literal BLBSM_IOLOCK = 16; 
: 197 0 literal BLBSM_ = 32; 
3 198 Literal BLBSM_WRITEBACK = 64; 
; 199 Literal BLBSK_ = 56; ' Length of BLB 
; 200 literal BLBSC_BLN = 56; ! Length of BLB 
3 so) Literal BLB$S BLBDEF = 3 : 
; Os macro BLBSL_FCNK = 0,0,32,0 2; ! Link to next BLB 
3 0 8 macro BLBSL_BLNK = 4,0,32,0 2; ' Back Link 
: 04 macro BLBS$B-EiD = g.0.8. i; i Block ID 
3 05 0 macro BLB$B_BLN = 9,0,  ¥ ! Block pength 
: 206 0 macro BLBSB_BLBFLGS = 16,0,8.0 %; ! Control flags for BLB 
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twe* MODULE SRJBDEF *** 


; 07 macro BLB$V_LOCK = 10 1.9 %; ! Corresponds to CSH$V_LOCK F 
; 08 macro BLBSV-NOWAIT = {0,1, 9 %; i Same as CSHSV_NOWAIT ; 
3 09 macro BLBSV_NOREAD = 1 6°}. 3; ! Same as CSH$V_NO ; 
: 10 macro BLBSV-NOBUFFER = 10,3.1,0 %; i Same as CSHSV_NOBUFFER | ; 
3 11 macro BLBSV_IOLOCK = 10,4,1,0 %; : Lock mode for read/write 3 
: ig macro BLBSV-DFW = 10,5,4 6 4; i This is lock for deferred write buffer : 
3 1 macro BLBSV_WRITEBACK = 10,6,1,0 %; ! The associated buffer must be written back : 
: 14 macro BLBSB_-MODEHELD = 11.6.8 6 x; i Mode of current lock held. ; 
3 15 macro BLBSL_BDB_ADDR = 12 Q. 2,0 &; i BDB for which this lock is held 
; 16 macro BLBSL_OWNER = 18.9 $2°0 &; ! Address of stream owning this Lock : 
: 17 macro BLBSL_VBN = 20,0,3¢,0 %; ! VBN of bucket lock (resource name) | 3 
; 18 9 macro BLBSL-RESDSC = 24,0,0,0 %; | ; 
3 1 Literal BLBSS RESDSC = §; ! Resource name descriptor : 
$ 20 0 macro BLBSW_LRSTS = 32,0,16 g %; ! Lock status word 3 
; 21 0 macro BLBSL_LOCK_ID = $6°0,52,0 %; ' Lock ID 3 
3 $6 0 macro BLBS$L-VALBLK = 40,6,6,0 %; 3 
; 2203 0 Literal BLBSS VALBLK = 16; ! Lock value block | ; 
: $sse 8 macro BLBSL_VALSEQNO = 40,0,32,0 %; ! Sequence number part of value block ; 
; $558 0 3 
s deer @ : ; 
3 $$58 . RJB Definitions | ; 
; 2280 9 RMS Journaling Block (RJB) | ; 
; $$e¢ 0 : This block contains the necessary control information to keep | : 
5 $$éz 4 track of the state of journaling on this file : 
; itera a = 22; : 
2235 0 li lL RJBSC_BID = 22 

; 2236 0 Literal RJBSK_BLN = 12; ' Length of RJB 3 
3; des @ Literal RJBS$C_BLN = 12; ! Length of RJB | 3 
3; ges Q Literal RJBSM_RU = 1; ; 
; 2239 0 Literal RJBSM_BI = 2; | $ 
; 2240 0 Literal RJBSM_AI = 4; 3 
>; 2261 0 Literal RJBSM_AT = 8; | : 
: $se6 0 Literal RJBSM_OPEN = 16; : 
>; 2243 0 Literal RJB$S-RJBDEF = 12; ; 
>; 2244 0 macro RJB$Q_CRAN = 0.0.0.0 &; : 
> 2245 0 Literal RJBSS_CHAN = 8; ' Channel Block ‘ea : 
; 2246 0 macro RJB$W_ROCHAN = 0,0,16,0 2; ! channel for recovery unit journal ; 
3; eer @ macro RJB$W_BICHAN = 2,0,16,0 2; ! channel for before image journal ‘ 
> 22468 OQ macro RJBSW_AICHAN = 4,0,16,0 2; ! channel for after jnoge ournal : 
; 249 0 macro RJBSW_ATCHAN = 6,0,16,0 2%; ' channel for audit trail journal : 
: $280 0 macro RJB$B_BID = 8.0.8.6 i; i Block ; 
; 51 macro RJB$B_BLN = 9,0 2; ' Block Length : 
; $526 0 macro RJBS$W_FLAGS = 16,6,16.0 %:; ! Flags wor : 
; 253 0 macro RJB$V_RU = 10.0,1,0 %: ! Set to indicate RU channel open : 
3 254 0 macro RJB$V_BI = 10,1,1,0 2; ! Set to indicate BI channel open : 
; 255 0 macro RJB$V_AI = 10-9168 z; ' Set to indicate Al channel open : 
3 256 0 macro RJB$V_AT = 10,3,1,0 2; ' Set to indicate AT channel open | 3 
3 $20 8 macro RJBSV_OPEN = 10°451,0'2: ! Indicates SOPEN mapping entry written ; 
3 $23 pone MODULE SMJBDEF *** : 
; 26 MJB field definitions 3 
5 88 ; Miscellaneous Journaling Buffer 3 
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; ; 

; 65 : The MJB is used for writing miscell 
: 08 : for example, extend entries or pata oie é 
; 68 Literal MJBSC_BID = 24; ; 
69 literal MJBSM-INIT = 1; : 
: 0 Literal MJBSM"FORCE = 2; ; 
; a7] Literal MJBSM-FILE = 4 
i ere Literal MJBSM~SYNCH SHARE = 8; 
3 0 Literal MJBSK_BLN = $i : 
; 7% 0 Literal MJBSC_BLN = 32; : 
: 3275 0 Literal RIBSS"RJBDEF =) 32; 
Bb mee hesie-ers 2b 8 | bet {2 : 
BD SERIE | et a cvernes to i : 
; ; ! set if RJR overhead i i | : 
BR See eerie atatetet ef Bee Ut be oe srscie ery o> Sort ef 
: j 2eel, a : 
8 4 eacre RISSV. SYNCH_SHARE = 10,3,1,0 %; ! set if file tock can't Fy A during : 
; 284 0 ! and not buffered by CJF (input to vated 'g MJB) 
>; 2285 0 macro MJB$B_JN P : “ pe ; 
2086 0 cele ea “set to CJF$_"jnl type’’ as input to WRITE_MJB : 
e = ° ! Ps 
; ssee 4 Besre tie SIZE = 16, 6.18.0 i oiie'ar "' on a ee : 
: $590 0 macro MUBSO™ taf 505°5°8: vO a: iepapesprlapeirs: 
; 2291 0 Literal MESS} = §;° ! I0SB to use in $ | 
; ! WRITEJN : 
; 239 8 macro MJBST "AIR 2,0,0,0 %; ' the journal record ey here : 
; $$9¢ 8 etteepiemtbibereentiecs oo ante teularnsdd, “acon ora. 
: 2296 0 is Cop right (c) 1982, 1983 ° | ; 
: 7344 ‘3 IGITAL Equipment Corporation, Maynard, Mass. ; | : 
: 2299 0 ! * This software is furnished under a license and m ; | 
; ay b : 
: ts! 3 . inet ie accordance with the terns of such Meteeen oad with a : : : 
: 302 6 i inc = on of the above copyright notice. This software or any other * | : 
: $305 0 2 = oe aes ~ eravides or otherwise made available to any * : 
36 0 i other ‘person. e to and ownership of the software is hereby 7 : 
; 306 0 i The information in this software i , | 
309 ;* s subject to change without notice * | : 
303 6 i ne Mens of not be construed as a commitment by DIGITAL Equipment i ; 
: 310 0 ! * DIGITAL assumes no responsibility for th : 
: 314 3 : software on equipment which is not vain = . | : 
: 31 ' PARRA AASLAZLALALSSLASLALESESASLARE ARRAS ARERR AAA RASA S SS 7 3 
Z 2314 8 ' Sceenseehdanaeiamiaanedadiamenmninemsimaaaienadmmmaaadememmaneiataamemmaammaae : 
: 5315 0 : unaceah 15-SEP-1984 22:54:20 b VAK=11 SDL y Seconenseensennnssesnesouesosdeeensehonesorseneteooeneeesoeoosee | : 
; $318 0 ' aCreated 15-SEP@1906 22:54:20 by VAKeIT SDL V2.0 Source: 15@SEP@1984 22:49:17 .S255SDUAZ8: (RAS SRC IRASFUAD | é 
: 318 | 
; HH 0 #88 MODULE SFWADEF *# | : 
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eral FWASM WC 


eral FWASM_EXP DI 
eral FWASM_EXP DE 
eral FWASM_WILBCA 
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eral FWASM NODE 
eral FWASM QUOTE 
eral FWASM_GRPMBR 

eral FWASM _WILD_DIR 
eral FWASM DIR _CVLS 
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constant for all flags that vary per parsing pass 
iteral FWASC_ALLPASS = 25; 
+ 


WA.A.AAA. AAAI A AWW 
PAASTTUIUIUIVIVIUN & & 


Misc. Fields 


bid of fwa 

max node name size ; 

max noatees node name size 

max node spec List size (concatenated node specs) 


wn 


= 6; 

“MAXLNDNAM = 15; 
eral FWASC"MAXNODLST = 127; 
device name descriptor 


iteral FWASC_MAXDEVICE = 255; 
iteral FWASC_MAXCDIR = 8; 
iteral FWASC_MAXSUBDIR = 7; 
iteral FWASCTMAXDIRLEN = 255; 
should be: top + subdir 39 * 8 
dots between 


delimiters 2 


SPOS 


Ss 
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max device name size ’ : 
max number of concealed directories 
max number of sub directories 

max size of total directory spec 
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rooted directory name buffers 
NOTE: These buffers must be contiguous 


re } The filename, filetype and fileversion descriptors MUST be contiguous 

80 tile name descriptor 

8¢ literal FWASC_MAXNAME = 39; ! max file name size 

ti Literal FWASC-MAXQUOTED = 255; ! max quoted string size 

385 file type descriptor 

387 Literal FWASC_MAXTYPE = 39; ! max file type size | 

89 ! file version number descriptor 

91 Literal FWASC_MAXVER = 6; ! maximum version | 

336 Literal FWASC_MAXRNS = 86; ! max resultant name string size | 
239 Literal FWASC-STATBLK = 10; i define Length of statistics block | 
2394 Literal FWASK_BLN_FWA = 506; ' Length of fwa 
2395 Literal FWASC_BLN FWA = 500; ' length of fwa 
2396 Literal FWASC_MAXSUBNOD = 7; i max number of secondary (sub) node specs 

7 + 

2398 ' 
2399 ! buffers for parsed filename elements 
2400 : 
2401 { oo 
$108 iteral FWASC_FIBLEN = 76; ! fib buffer size 
sehr iteral FWASC_DIRBUFSIZ = 39; ! size of each directory buffer 
2405 
2406 
2407 
2408 
2409 
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iteral FWASK_BLN_BUF = 2364; ' Length of fwa and buffers 
2410 iteral FWASC_BLN_BUF = 2364; ! Length of fwa and buffers 
2411 iteral FWASK_BLN = 2364; ' Length of fwa and buffers 
sig Literal FWASC_BLN = 2364; ! Length of fwa and buffers 
241 Literal FWASS-FWADEF = 2364; 
2414 macro FWASQ_FCAGS = 0,0,0,0 %; ; 
2415 Literal FWASS_FLAGS = 8; ! various parse status flags 
2416 macro FWASB_PASSFLGS = 6,0,8,0 %; ' flags for pass only 
2417 macro FWASB_FLDFLGS = 1 6,8,6 2; ! flags for fields seen | 
2418 macro FWASB_WILDFLGS = 2,0,8,0 &; ' flags for wild cards | 
2419 macro FWASB_PARSEFLGS = $,0,8,0 &; ! flags for parse results 
2420 macro FWASB_DIRFLGS = 4,0,8,0 2%; ! flags primarily for directory spec 
st 1 macro FWASB_DIRWCFLGS = 5,0,8,0 2%; ' directory wild flags 
4 g macro FWASB_LNFLGS = 6.0.8.6 &; ! logical name flag byte 
$t5z macro FWASB_SLFLGS = 7,0,8,0 2%; ! search List + rooted directory flags 
sess flags for pass 
$159 macro FWASV_DUPOK = 0,0,1,0 2%; ! discard duplicate element 
sise macro FWASV-NOCOPY = 0,1,1,0 &: ! do not copy this field 
$$3 macro FWASV~SL_PASS = 6 2.1.0 &: ! search List pass < 
2430 macro FWASV_RLF_PASS = 6.5.1.0 i; ' set if applying related file defaults 
$t3 macro FWASV_FNA_PASS = 0,4,1,0 2; ! set if primary name string parse pass 
4 . macro FWASVNAM-DVI = 0,5,1,0 &: ' set if open by name block 
rth macro FWASV_EXP_NODE = 6.6.1.0 &: ' explicit node has been seen, null or normal 
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flags for fields seen 


macro FWASV =VERSIO = 0,11,1,0 %; 
macro FWASV_TYPE = 2 4° § ; 


macro AS “DEVICES 
flags for wild cards 


macro FWASV_EXP_VER = 0 
macro F 

macro FWASV_ 
macro FWASV_W 
macro FWASV-WC TYPE = 6 
macro FWASV_WC_NAME = 0 
macro FWASV_EXP_DIR = 0 
macro FWASV_EXP_DEV = 


flags for parse results 


macro FWAS$V -WILDCARD = 
macro FWASV_NODE = 0, 
macro FWASV~QUOTED = 
macro FWASV_GRPMBR = 
—_ FWASV— -fitp DIR 

FWASV-DIR_CVLS 

literal PUASS _DIR_ teLs 
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4 
0 
1 
1 
8 
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' (valid only if~node set and no tldflgs) 


flags primarily for directory spec 


macro FWAS$V _DIR1 = 4,0,1,0 2%; 
macro FWASV_DIR2 = 4 


i directory wild flags 


° . Py 


macro FWASV -WILD_UFD = 4,8,1,0 % 

macro FWASV_WILD_ s" = 4§ 1,0 i; 

macro FWASV_WILD_GRP = 4 8 't6 x 

macro FWASV_WILD_MBR = 4 °9.1,0 i 

7 logical name flag and miscellaneous byte 


macro FWASV_LOGNAME = 4,16,1,0 2; 

! (note: Ehis byte is saved as context 
: when processin 
macro FWA : OBJTYPE = 4,17,1,0 %; 
' ec eta Fh form 

: (va id. eh BY ot E quote set) 
macro PuASY NETSTR = 4,18,1,0 2%; 
‘ “object Eype=tasknane/.. .” form 
! (valid on . oe if peyote? 9 

macro FWASV_D 

macro FWASV_ rath EFOUND ‘ 
macro FWASV™ “REMRESULT 
macro FWASV~SYNTAX_CHK = 4 
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15 seen ieee 55:88;58  “SSsbsnnAoe scans GB IRMS R32: 1 age 9). 
set version seen 
set type seen 


if 
if 
set if name seen 
if directory spec seen 
if device seen 


f explicit version 

f explicit type 

f explicit name ; 

f wildcard (*) version 


set if explicit directory 
set if explicit device 


set if any wildcard seen 

set if node name seen 

set is ee string seen 

set if directory in Corp,mbr) format 
inclusive or of directory wild cards 


! of directory sublevels (0 = ufd only) 


irectory or group seen 
directory or member seen 


eno 
=a. 


the dirl spec was a wild card 
the dir2 spec was a wild card 
the grp spec contained a wild card 
the mbr spec contained a wild card 


a logical name has been seen this pass 
set if quoted string is of the 
set if quoted string is of the 


device name was prefixed with an underscore 

true if at least one file found b afeeren 

use resultant string returned by 

syntax-only checking is requested CNAMSV SYNCHK set) 


Bo Oe Oe Oe Oe Se Be Se Oe Oe OH Se Se Be SH Se Se Se SH Se Ge Se SHS Se Se SH Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se oe Se Se Se Se Se Se Se Se Se Se sess ae 
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! 
! search List and rooted directory flag byte 


macro FWASV_SLPRESENT = 4,24,1,0 
macro FWASV-CONCEAL DEV = 4,25-1 
macro FWASV-ROOT_DIR = 4,26. “$ ; 
macro FWASV_DFLT_MFD = 4 1,0 %; 


search List present 
concealed device present 


%; ! 

0 %; ! 

{; root errectery present 
! r 

' 


—— 


; 438 MFD = 4,27,1,0 2%; default MFD string inserted, due to [-] 
; 244 macro FWASV_EXP_ROOT = 4,28,1,0 %; explicit root directory | 
$ 23) 8 } Value for all filename elements except node 
3 208 8 macro FWA$B_BID = §-0.8.8 %; ! bid 
; 504 macro FWA$B_BLN = 9,0, %; ' bln ; 

; 505 0 macro FWASB_DIRTERM = 16,0,8.0 2; ! directory spec terminator ('J' or_'>') 

: 506 0 macro FWASB_ROOTERM = 11 9.8.9 x; ! root directory spec terminator ('J' or '>') 

: S20! 0 macro FWASL_ESCSTRING = {2°0.32,6 x; ! escape equivalence string ‘ | 
3 508 0 macro FWASB-ESCFLG = 12,0,8,0 %: ! set to the char <esc> if an escape string 

> 2509 0 ! seen, zero otherwise | 
; 2510 O macro FWASB_ESCTYP = 13,0,8,0 %; ! escape mo} ad byte 
: 2511 0 macro FWASW-ESCIFI = 14,0,16,0 &; i escape ifi value | 
i 9512 0 macro FWASQ-FIB = 16,0,0,6 3%: 

: 2513 0 Literal FWASS F1B = 6; ! fib descriptor | 
; 2514 0 macro FWASL_DEVBUFSIZ = 24,0,32.0 %; | device buffer size | 
g 19 & macro FWASL_DEV_CLASS = 28 9.5e 0 i; ! device class 

; ete macro FWASL_RECSIZ = 32,0 $2:0 4; ! blocked record size 

s «gl7 @ macro FWASL_UNIT = 36,0,32,0 %; ! device unit number 

; 2% @ macro FWASL_UIC = 40,6,$2.6 x; ! file owner uic 

; 2519 0 macro FWASW_PRO = 44,0,16,0 %; ' file presestiee word 

; 2520 0 macro FWASB_DIRLEN = 46,0,8,0 %; ! overall directory spec Length 

3 6gse) © macro FWASB_SUBNODCNT = 47,0,8,0 %; ! number of secondary (sub) node specs found 

; ses¢ 0 macro FWASL_DIRBDB = 48,0,52.0 %; ! address of directory file bdb 

s @e3 0 macro FWASL_LOOKUP = 52,0 369 i; ! address of new directory cache node 

>; 2524 0 macro FWASL_DEVNODADR = 56.0.32,0 %; ! address of device directory cache node 

3 $252 0 macro FWASQ DIR = 60,0,0,0 2%: 

3 526 0 Literal FWASS_DIR = 6: ! directory name scratch buffer 

; eer ®@ macro FWASL_UCHAR = 68.0,32,0 %; ! user characteristics longword 

>; 2528 0 macro FWASW_U = 68 9.16 § %; 

>; 2529 0 macro FWASL-FWA_PTR = 72.0,52,0 2: ! pointer to second fwa if any (SRENAME) 

: Seee 0 macro FWASL_SWB_PTR = £868.35 -8 i; ! pointer to swb 

3 531 0 macro FWASL_BUF PTR = 80,0,32,0 %; ! address of temporary buffer 

; 353¢ 0 macro FWASL~IMPORE AREA = 84 §.32 0%; ' saved R11 (rm$xpfn only) 

3; @o03 9 macro FWASL ATR_WORK = 88,0,52.0 &; ! pointer to work area for ACP attributes 

3 534 0 : (zero one not currently allocated) 

3 239 0 | +4 

; 5 0 ; F 

; 537 0 ! Logical name and search List fields 

; 538 0 : 

3 539 0 | o- 

: 540 8 : 

; 23) 8 Item List block for logical name services 

; 543 0 macro FWAST ITMLST = 92,0,0,0 2%; : . ; 

: 62544 8 Literal FWASS_ITMLST = 64; ! logical name item List 

; 545 macro FWAST ITM_INDEX = 92 9.0.0 z; . 

3 546 0 Literal FWASS_ITM_INDEX = 12; ' index 

; 54 9 macro FWAST_ITM_ATTR = 104,0,0,0 2%; ; 

; 2548 Literal FWASS_ITM_ATTR = 12; ! attributes 
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macro FWAST ITA, A bs = 116,0,0,0 %; 

Literal FUASS |] STRING = re string 
macro FWA$T rh aa") INDEX = 128,0,0,0 %;_ 

Literal PUASS ITM_MAX_INDEX = 10;" max index 


macro FWASL_ITM_END = 40,0,32,0 %; 
i Logical name translation fields 
macro FWASB nye 156,0,8,0 %; 

( uf2 in 


-1 = buf in use) 
macro FWASB “KLTMODE = 157,0,8,0 % 


terminating longword 


flag for which translation buffer is in use 


mode of i SOat Ten on input to $TRNLNM 


mode of Equivalence, £5.) on _, from $STRNL 


macro FWASW ‘ %; 
macro FWASL-XLTBUFF1 = "160:0,82.0 § %; 
macro FWASL_XLTBUFF2 = 164,0,32,0 %; 


7 SLBH and SLB pointers 


i 

macro FWAS$T_SLB = 184 0,0,0 %; 
literal FWA$S SLB = 24; 

macro FWASB_ PEVEL = 195,0,8,0 %; 


i Logical name descriptor 


macro FWA$SQ_LOGNAM = 208 0,0,0 &%; 
Literal FWASS_LOGNAM = 


cre FWAS$Q_NODE 
teral FWASS_NO 


—_ 


The descriptors are defined as: 


Length a equivalence string 
primary translation buffer descriptor 
secondary translation buffer descriptor 


space for SLBS$C_BLN 
recursion level” 


logical name descriptor 


descriptors for parsed filename elements 


node name (actuaily node spec list) descriptor 


Dm me ee et mt me mmm 


DE 
(the associated 
macro FWAS$Q_DEVICE 


0% 
s fwaSt_nodebuf) 
0,0 %; 


macro FWASL _SLBH_PTR = 168,0,32,0 %; ' current SLB List 
macro FWASL_SLB_PTR = 172 6,32,6 %: ' current SLE List 
macro FWASL ~stBh “FLINK = {76,0,32.0 x; | SLBH que fwd Link 
macro FWASL_SLBH_BLINK = 180,0,32,0 %; ! SLBH que back Link 
i Fake SLB - NOTE: This MUST be the size of SLB$C_BLN 
: The field FWASB tevet must be at the same offset 
: as SLB$Q_LEVEL would be. (It sounds Like a real 
: hack but it works very nicely) 
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; 606 0 Literal Song, DEVICE = 8; ! device name descriptor ; 
; 607 0 macro FWA$Q CONCEAL DEV = 25¢-0.0.0 %; 5 
; ree 8 Literal FUASS _CONCEAL _DEV : ! concealed device descriptor ; 
3 610 Q directory name descriptors NOTE: The two sets of eirectery ; 
; $61) 0 : descriptors must be contigous ; 
: ols 8 or RMSSETDID will break : 
yd ascot cis ee epee fai 
; itera ! concealed to rector escriptors ; 
; 2618 0 — macro FWASO CBIR2 = 248.0,0,0 %; : : é | 
$ solr 0 Literal FWASS CD R2 = ! concealed subdirectory 1 $ 
3 618 0 macro FWA$Q CBIR 256, 0,0,0 %; 3 
> 2619 0 Literal FWASS CDIR3 = od ; 
3 soso 0 macro FWA$Q_CBIR4 = 264, 0, 0,0 %; : 
; 2621 0 Literal FWASS CDIRG = ‘Bate. | ; 
: 2622 0 macro FWA$Q CBIRS = 272, 0, 0,0 %; 3 
; 2623 0 — Literal FWASS CDIRS = kat | 
; 2624 0 macro FWA$Q CBIR6 = 280, 0,0,0 %; 3 
: 2625 0 Literal FWASS CDIR6 = eo 3 
: 2626 0 macro FWA$Q_CBIR7 = 288, 0,0,0 &; ’ 
; oer © Literal FWASS CDIR7 = 8; a ; 
: 2628 0 macro FWA$Q_ CBIR8 = 296, 0,0,0 %; 3 
; 2629 0 Literal FWASS _CDIR8 = 8: ate : 
; 2630 0 macro FWA$Q_DIR1 = 304, 6.0.0 %; 3 
; 2631 © Literal PWASS DIR1 = 8; ! top level directory descriptors 3 
: 2632 0 macro FWA$Q_DIR2 = 312, -0,0,0 %; | § 
s @633 © Literal FWASS pire 22 ! subdirectory 1 : 
: 2634 0 macro FWA$Q_DT 320, 0,0,0 &%: : 
: 2635 O iteral FWASS DIR3 = = ; 
: 2636 0 macro FWA$Q_ DIR4 = 328, 0,0,0 %; 3 
; 2637 0 Literal FWASS DIR4 = Pie 3 
: 2638 0 macro FWA$Q_DIR5 = 336, 0,0,0 %; Z 
: 2639 0 Literal FWASS DIRS = 8; tis 3 
; 2640 0 macro FWASQ DIR6 = 344. -0,0,0 %; 3 
; 2641 0 Literal FWASS DIR6 = es 3 
: 2642 0 macro FWA$Q_DIR7 = 352, 0,0,0 &; 3 
; 2643 0 Literal FWASS DIR? = 8; a | 3 
> 2644 0 macro FWA$Q DIR8 = 360,0,0,0 x; 3 
; 2645 0 Literal FWASS DIRB = 8: Pond | | : 
> 2646 0 macro FWASQ_NAME = 368,0,0,0 2; ; : : 
; er @ Literal FuASS NAME = iF ! file name descriptor | : 
> 2648 0 macro FWASQ QUOTED = 368,0,0,0 %; | : 
: 649 0 Literal FWASS D = 8; ! quoted string descriptor : 
; 650 0 macro FWASQ_TYPE = 376,0,0,0 2%; 3 
: 2651 0 Literal FWASS_TYPE = 8: ! file type descriptor 3 
: 9632 0 macro FWA$Q VERSI ION = $84,0,0,0 %; | ; 
: 2653 0 Literal FWASS_V ERS {om = 8; ' file version descriptor 3 
; 2654 0 macro FWA$Q ARS 2 96 -0.0.0 %; : : 3 
:; 2655 @ Literal FWASS_RNS = 8; ! resultant name string descriptor 3 
; 3696 0 macro FWASQ_SARFIL = 400,0,0,0 %; j | ; 
: 657 0 Literal FWASS_SHRFIL = 8; !' shared file device descriptor (readable form) 3 
; $628 8 macro FWASQ SARFIL_LCK = 408,0,0,0 %; ; j i : 
3 659 Literal FWASS_SHRFIL_LCK = ' shared file device descriptor (unreadable form - used for lock name) 3 
; 2660 0 macro FWA$Q_AS SHRF IC = 416,0,0,0 %; | ; 
3 661 Literal FWASS HRFIL = 8; ' secondary device descriptor (readable form) ; 
; 662 macro FWA$T *STATBLK = 424,0.0,0 %; s 


ro 
i 


re TI AF ET ae ge 


15-Sep-1984 22:5 VAX-11 Bliss-32 V4.0-742 Page 52 
1328ep- 1984 35:88:58 VSSSSSrnAaBS CAMS GOsTAMS 32:1 9% 9) 
663 Literal FWA$S pete K = 10; ' 
664 macro FWASL_SEN = $34.0,3 0 %; : pyerting Lbn if contiguous 
665 macro FWASL-HBK = 428,0,32,0 %; ! high vbn 


node descriptors 


macro FWAS$Q gy A = = $56.0, 0,0 %; ; 
Literal FWASS_NODE1 = 8; ! primary node spec descriptor 
! (the sseerioted b buffer is fwa$t_nodebuf) | 


67 macro FWAS$Q_NODE2 = 444,0,0,0 %; 

267 Literal PUASS. NODE2 = 8; ! secondary (sub) node spec descriptors (1-7) 

674 macro FWA$Q NODE3 = 45¢-0.0.0 E; | 
675 Literal FWASS_NODE3 = 8; ! note: bytes 2-3 of each of these descriptors 
2676 macro FWA$SQ NODE4 = 460,0,0,0 %; ; 
2677 Literal FWASS NODES = 8; ! contains the flags word that is output 
2678 macro FWASQ NODES = 468,0,0,0 %; . | 
2679 Literal FUASS IN NODES = 8; ! from nxtfld subroutine in rmOxpfn 
2680 macro FWASQ_NODE6 = 476.0,0,0 %; 
2681 Literal PWASSN ODE6 = 8; ! note: fwa$q_nodel thru 'fwa$q_node8' 
2682 macro FWASQ NODE? = 484,0,0,0 %; 

2685 Literal FWASS_NODE7 = 8: ! describe the same string as does 
2684 macro FWA$Q NODES = 492,0,0,0 %; 
2685 Literal FWASS_NODE8 = 8: !  fwa$q_node 
2686 macro FWAST FIBBUF = 500,0,0,0 %; | 
2687 Literal FuASS FIBBUF = 76; ! fib buffer | 
2688 macro RRM ps 576,0,0.0 %; : 
2689 UTteral WANASS _RAM_F = 6; ! saved fid for rename directory check 


directory name buffers 
NOTE: These buffers must be contiguous 


macro FWAST tin fy 0,0,0 
literal FUASS D §.° 
macro FWAS$ DIReBuF = = 621 6.0.0 
Literal FuASS = 36.° 
macro FWAS$T Wee Saige 0,0 


% 
% 
% 
% 
UF = 
macro FWA$T DIRSBUF = 738 b.0, 0,0 %; | 
7 x 
% 
1; 


! ufd level (or group) 
' Ist sfd level (or member) 
! subdirectory 2 
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3708 Literal fuss D 4B 39." ! subdirectory 3 
704 Literal FWASS DIRSBUF = 39 ' subdirectory 4 
705 macro FWAST DIR6BUF = 777,0,0,0 | 
706 Literal FASS -D buR 6BUF = 39: ! subdirectory 5 
70° macro FWAST DIR7BUF = 816,0,0,0 ; 

2708 Literal FUASS DIR7BUF 5 525 ! subdirectory 6 

2709 macro FWAST_DIR lh 5 0.0,0 ‘ 

2710 literal FUASS DIR8BUF = 8934) ' subdirectory 7 

tap) macro FWAST CBIRIBUF = 89% 0,0,0 %; 
né literal PUASS reine 33°). ! ufd level (or g*oup) 

a macro FWA$T CDIR2BUF = 6.0.0 2; 

714 Literal FWASS_CDIR BUF = 23360" ! 1st sfd Level (or member) 
715 macro FWAST CBIR UF = 972 6,0,0 %; 
716 Literal FWASS CDIR §;° ' subdirectory 2 
717 macro FWAST fale 1011,0.0,0 2; f 
718 literal FWASS COI RSaU 33: ' subdirectory 3 
2719 macro FWA$T_CDIRSBUF = io 0,0,0,0 %: 
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; 720 8 Literal ‘yess CDIRSBUF = 39; ! subdirectory 4 ; 
: 721 macro FWAST CBIR6BUF = 1089,0,0,0 %; ‘ 
; 7 ; 8 Literal WAS CDIROB 9; ! subdirectory 5 ; 
; 7 macro FWAST CBIR thy = 11 8. 0,0,0 %; . 
3 724 0 Literal cuss coiR/e ! subdirectory 6 : 
; 725 0 macro FWAST CDIRBBUF = 11 t ,0,0,0 %; ; : 
; T¢6 8 Literal FASS _CDIR8BUF = ! subdirectory 7 ; 
3 15 0 ! NOTES: 1. ~ mere aay buffers must be eo oy as eventually the : 
: 16? 8 type and version are appended to the name string : 
: 3 9 i 2. The name buffer and the type buffer must be 1 byte larger then ; 
s 7 ¢ ? the max name and _— size (resp) because xpfn writes the ; 
3 re? 8 ; name and type terminators in the buffer at the end of the string : 
: 2735 0 macro FWAST_NAMEBUF = 1206,0,0,0 %; ; . | : 
; 736 (0 Literal FWASS _NAMEBUF = 256:- ! file name/quoted string buffer : 
: 737 O macro FUAST TYPEBUF = 1462.,0.0 %; | ; 
; 2738 O Literal FWASS_TYPEBUF = 40; ! file type buffer : 
3; ery @ macro FWAS$T VERBUF : 1502,0,0,0 % : 
; 2740 0 Literal FUASS VERBUF = 6; ! file version buffer ; 
; 2741 0 macro FWASL_ ute BSS = f isod 0,32,0 %; : ucb$l_sts field for prim device | : 
; gine 0 macro FWASB-UNDER DEV = 131¢.0.8.0 %; =! character ''_"’ stored here | ; 
: 2743 0 macro FWA$T ~ DEVI CEBUE = 1513,0,0,0 %; : 
; 2744 0 — Literal FWASS DEVICEBUF = 533 1 destin eee butter : 
: 2745 0 macro FWAST CBDEVICEBUF = 1768,0.0,0 %; : 
; 2746 0 Literal FWASS CDEVICEBUF = 256; : concealed device name buffer : 
; 2747 0 macro FWASB_UNDER_NOD = 2024,0,8,0 %; ! character ‘'_"' stored here ; 
: 2748 0 macro FWA$T “NODEBOF = 2025,0,0,0 2; : 
; 2749 0 — Literal FWASS NODEBUF = 127; ! node name buffer : 
; 2750 0 macro FWAST WILD = e138. 0.0,0 %; ; ; 
; #751 0 Literal PWASS WILD = 48; ! scratch field used by RMOWILD : 
; gee © ' size = count 1 : 
; 2753 0 ! name 39 : 
ss ere 9 : -dir;* 6 : 
3 2756 8 spare 2 : 
vem 2 34 : 
;6efo8 6D macro FWAST SHRFILBUF = 2200" 0.0,0 %; : fra : 
3; aes ee Literal FWASS SHRFILBUF = shared file device id buffer (readable form) : 
> 2760 0 macro FWAST SARFIL-LCKNAM = 2216,0,0,0 rf ‘tse : 
s ef) @ Literal FWASS_SHRFIL_LC ! shared file device id buffer (unreadable form - used for lock name) : 
:  g76e 0 macro FWAST_AS SHRFICBUF = 2232.0,0,0 x; : 
: 763 0 Literal FWASS AS wy = ' secondary device id buffer (readable form) : 
> 2764 0 macro FWASQ TINE = 2248,0, 0.0 °; : 
3 765 0 Literal FWASS_BIJNL descriptor of BI journal name : 
: 766 0 macro FUASQ,ATINL = 22 6,0,0.0 %; : 
: 2767 0 Literal FuAss A 8; descriptor of AI journal name : 
: $768 0 macro FWASG-ATINL = 2264,0,0.0 2; : 
: 2769 0 Literal FUASS ATJNL = gi ' descriptor of AT journal name : 
: 770 0 macro FWAST BIACE . ee -0,0,0 &; i : 
: 771 +O literal FWASS_B g Bl journal name ACE : 
: ite 0 macro FWA$T BYONLNE = 2 7, 0.0.0 %; : 
: rs @ Citeral. FuASs BIJNLN = 16; : 
: sire 0 liter tah e e 2238: b. sia Al journal name ACE : 
5 era u . 
s 27% QO macro FWA$T *ATINUN = = $3, 0.0.0 2%; 3 


| 
| 
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H 777 +O Literal FWASS_AIJNLN = 16 : 
: 778 macro FWAST_ATACE = 2312.0,0,0 x; F 
; 779 Literal FWASS_ATACE = § : ! AT journal name ACE : 
3 780 macro FWAST_ATJNLN = 2316,0,0,0 2; ; 
; 781 0 Literal FWASS_ATJNLN = 16; : 
i gfBe 0 macro FWAST IDACE = 23 ¢-0.0.0 %; | : 
; 783 0 iteral FWASS IDACE = 32; ! Journal ID ACE 3 
: 784 0 macro FWAST JALID = 2336,0,0,0 2%; | $ 
: 785 0 Literal FWASS_JNLID = ¢ : ! complete journal ID : 
: 3786 0 macro FWAST VOLNAM = 2336,0,0,0 %; | : 
3 787 0 Literal FWASS_VOLNAM = 12: ! volume Lable of media file resides on ; 
>; 2788 9 macro FWAST FID = 2348,0,0,0 %; | ; 
; 789 Literal FWASS FID = 6; ! file-id : 
: 790 0 macro FWASQ_IB_DATE = 2356,0,0.0 %; ; 
; srl 8 Literal FWASS_TD_DATE = 8; ! id time stamp : 
; $798 0 'ee® MODULE SSLBHDEF *** | : 
; 2m @ ! 3 
; rye @ : SLBH - Search List Header Block : 
: 2796 Q ! 5 
>; 2797 0 Literal SLBHSC_BID = 43; : Jo 3 
; «ms @ Literal SLBHS$K_BLN = $0 ! Length of SiBH : 
; «ety QO Literal SLBHSC_BLN = 20; ! length of SLBH : 
: 2800 0 Literal SLBHS$S_SLBHDEF = 20; ; 
; 2801 0 macro SLBHSL_FCINK = 0,0,32,0 2%; ! forward Link | ; 
; 2802 0 macro SLBHS$L_BLINK = 4,0,32,0 %; ' backward Link : 
; 2803 0 macro SLBH$B_BID = 8,0,8.0 &; ' block ID : 
>; 2804 0 macro SLBH$B_BLN = 9,0,8,0 %; ' Length : 
; 2805 0 macro SLBH$SB_PASSFLGS = {0,0,8,0 %; i flags for FWA$B_PASSFLGS | ; 
: 2806 0 — macro SLBHSB-STR_LEN = 11,0,8,6 «: i string Length | ; 
; er © macro SLBH$L_SLB_QUE = 12.0,32,0 &; ' ptr to SLB queue 3 
; 2808 0 macro SLBH$L_NAM_FNB = 16,0,32,0 %; ! saved FNB from RLF file 3 
3 44 8 macro SLBHS$T-STRING = 20,6,0,0 2; ! start of string | : 
; 2811 0 !ee MODULE SSLBDEF *** : 
; sole 0 ' 3 
; 28135 0 : SLB - Search List Block : 
; 2814 0 : | : 
; 2815 0 Literal SLB$C_BID = 41; ! 10 F 
;. er 8 Literal SLBSM_REALSLB = 1; : 
s ee @ Literal SLBSK_BLN = 24; ' Length of SLB | : 
>; 2818 0 Literal SLBSC_BLN = 24; ! Length cf SLB | 3 
; 2819 0 Literal SLBSS_SLBDEF = 24; ( : 
; $850 0 macro SLBSL_FCINK = 0.0.3.0 x; ! forward Link : 
; 82; 0 macro SLB$L_BLINK = 4,0,32,0 2%; ' backward Link 3 
: 2822 0 macro SLBSB_BID = 8.0.8.0 i; i block ID ; 
>; 2823 0 macro SLB$B_BLN = 9,0,8,0 %; ' Length ; 
i 384 0 macro SLBSB“FLAGS = 16 6.8.6 ; i flags, | ; 
3 825 0 macro SLBSV-REALSLB = {0.0.1.0 2; ! “Real’’ SLB as opposed to the fake FWA one | : 
; 826 8 macro SLBSB_LEVEL = 13.8.8 0 %; ! recursion Level | : 
: 827 macro SLBSL_INDEX = 12,0,3¢,0 &; ! translation index | : 
; 828 0 macro SLB$L_MAX = = {6,6,32:0 2; ! max translation index : 
: 4 8 macro SLBSL_ATTR = 20,0,32,0 2%; ! attributes flags : 
: oa 8 pees MODULE SFSCBDEF *** : 
3 HE 0 : FSCB = FileScan control block : 


a eee ae a es 
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: 834 0 / | ; 
3 ; ‘ 0 This block is passed to PARSE_STRING from XPFN and RMSS$FILESCAN ‘ 
: 8 : | ; 
: 838 0 ' The descriptors are defined as: | : 
; 839 0 : : 
bY 284 A 5 Sheme aera, cet. heli woe eS ee ee ee 4 
; ; ' ags ' engt H : 
° ote 0 ' H i cliedidietindiaatedinaatedtieitane 9 Tae RO Ewe BRE OEE BE Re ET eS 3 meme oe ee ee eS H $ 
° 8435 0 : : address H . 
é 844 0 ' a a ee ee ro ee oe 3 
; 845 0 : : 
; 846 0 : : 
3 847 0 ' : 
; 9k 8 descriptor flags : 
>; 2850 QO : These flags are used through out the RMS file name parsing routines. : 
5 $02) The flags can be found in all of the field descriptors. : 
: sass 0 4 NOTE: The flag ELIPS must be the first bit in the second word. : 
3 Spee } It is referenced this way in RMOWILD and other places : 
; 2856 0 Literal FSCBSM_ELIPS = 65536; | : 
; or @ Literal FSCBSM_WILD = 131072; | ; 
; 2858 0 Literal FSCBSM_ACS = 262144; 3 
: 2859 0 Literal FSCBSM-QUOTED = 524288; | ; 
>; 2860 0 Literal FSCBSM_NULL = 1048576; : 
; 2861 QO Literal FSCBSM_PWD = 2097152: : 
; 2862 0 Literal FSCBSMGRPMBR = 4194304; | ; 
>; 28635 0 Literal FSCBSM_MINUS = 8388608: | : 
; 62864 0 Literal F SCBSM_CONCEAL = 16777216; | : 
> 2865 0 Literal FSCBSM_MFD = 33554432; ; 
; ©2866 0 Literal FSCBSM_ROOTED = 67108864; ; 
; 2867 0 Literal FSCB$S_FSCBDEF = 4; : 
; 2868 0 macro FSCB$V_ECIPS = 0,16 1,0 %; ! elipssis was detected in directory (dir) : 
>; 2869 0 macro FSCBSV_WILD = 0 17,1,6 2; ! awild card was detected (dir,name,type,ver) 3 
; 2870 0 macro FSCB$V_ACS = 0,18.1,6 %; ! access control string in node name (node) : 
; efi 9 macro FSCBS$V-QUOTED = 0,19,1,0 4%; ! quoted file spec (name) | : 
3 $e76 0 macro FSCBSV_NULL = 0 26.1.0 °%; ! field was null (terminator only) (all) : 
3; eels 9 macro FSCBSV~PWD = 0,21,1,0 &:; ! password masked out (set in xpfn) (node) : 
>; 2874 0 macro FSCBS$V_GRPMBR = 0 ¢¢ 1,0 %; ! group,member format directory (dir) : 
s ers 9 macro FSCBSV_MINUS = 0,23,1,0 %; ! minus directory field (dir) : 
; 2876 0 macro FSCBSV-CONCEAL = 0,24,1,0 %; ! name was concealed (dev) : 
: $ere 0 macro FSCB$V_MFD = 0.25,1,0 %: ! MED directory (set in xpfn) (dir). 3 
3 sare 8 macro FSCBSV_ROOTED = 0:26,1,0 %: ! directory was a root directory (dir) 3 
: 2880 0 : FSCB 3 
; ©2881 8 Bi. : 
; sone Literal FSCBSM_NODE = 1; : 
; 2885 0 literal FSCBSM_DEVICE = 2; : 
3 Sane 0 Literal FSCBSM_ROOT = 4; : 
; 885 0 Literal FSCBSM_DIRECTORY = 8; : 
: ty] Literal FSCBSM_NAME = 18: : 
3 88 Literal FSCBSM_TYPE = 32; § 
3 888 Literal FSCBSM_VERSION = 64; ' $ 
; 2889 0 Literal FSCBSC_MAXNODE = 8; ! max number of node descriptors : 
; 2890 0 Literal FSCBSC_MAXROOT = 8; ' max number of root descriptors 3 
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Literal FSCBSS_DIRECTO 
macro FSCBS$Q_NAME = 44 


S_NAME = 8; 
$Q TYPE = 52,0,0,0 2: 
S TYPE = 
macro FSCB$Q_VERSION 
Literal FSCBSS_ VERSION 


Q NODE! = 
S_NODE 


EAE 


macro FSCB$Q_N 


Literal FSCBSS_NODE3 


macro Ff 


SCB$Q_NODE4 = 


Literal FSCBSS_NODE4 


macro F 


SCB$Q_NODES = 


Literal FSCBSS_NODES 


macro F 


SCB$Q_NODE6 = 


Literal FSCBSS_NODE6 


macro F 


SCB$Q_NODE7 = 


Literal FSCBSS_NODE7 
macro FSCB$Q_NODE8 = 
Literal FSCBSS_NODES 
. 1 
macro FSCB$Q_ROOT2 = 
literal FSCBS 


fe = 

S_ROOT2 
macro FSCB$Q ROOTS = 
Literal FSCBSS_ROOT3 
macro FSCB$Q_ROOTS = 
Literal FSCBSS_ROOT4 
macro FSCB$Q_RUOTS = 
Literal FSCB$S_ROOTS 


= 36 
ry = & 
0,0,0 %; 


= 60,0,0,0 %: 
> 6: 
68,0.0,0 %; 
76,0,0,0 %; 
84,0,0,0 &; 
92,0,0,0 %: 
100,0,0,0 % 
108,0,0,0 % 
116,0,0,0 2 
124.0,0,0 2 
132,0,0,0 2; 
140,0,0.0 % 
148,0,0,0 % 
156.0,0,0 x 
164,0,0,0 % 
= 8; 


0.0.0 %; 


full directory List spec 
file name 
file type 


fike version 


the NODEn descriptors must be contiguous 


the ROOTn descriptors must be contiguous 
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3 948 0 macro FSCB$Q_ROOT6 = 172,0,0,0 %; 

: 949 Literal FSCBSS ROOTE = 8; 

; 950 macro FSCB$Q_ROOT7 = 180,0,0,0 %; 

5 951 Literal FSCBSS_ROOT7 = 8; 

: 326 macro FSCB$Q_ROOT8 = 188,0,0,0 %; 

H 955 0 Literal FSCBSS_ROOTS = 8; 

: 954 0 macro FSCB$Q_DIRECTORY1 = 196,0,0,0 %; 

3 955 0 Literal FSCBSS_DIRECTORY1 = 8; ! the DIRECTORYn descriptors must be contiguous 

: 328 0 macro FSCB$Q_DIRECTORY2 = 204,0,0,0 2%; 

; 957 0 Literal FSCBSS_DIRECTORY2 = 8; 

; 958 0 macro FSCB$Q_DIRECTORYS = 212,0,0,0 2%; 

; 959 90 Literal FSCBSS_DIRECTORY3 = 8; 

; 960 0 macro FSCB$Q_DIRECTORY4 = 220,0,0.0 %; 

; 961 0 Literal FSCBSS_DIRECTORY4 = 8; 

; 366 0 macro FSCB$Q_DIRECTORYS = 228,0,0.0 %; 

; 29635 0 Literal FSCBSS_DIRECTORYS = 8; 

> 2964 0 macro FSCB$Q_DIRECTORY6 = 236,0,0,0 %; 

; @e7e> @ Literal FSCBSS_DIRECTORY6 = 8; 

; 2966 0 macro FSCB$Q_DIRECTORY7 = 244,0,0,0 %; 

; 2967 0 Literal FSCBSS_ DIRECTORY? = 8; 

; 2968 0 macro FSCB$Q_DIRECTORY8 = 252,0,0,0 %; 

; $358 8 Literal FSCBSS_DIRECTORY8 = 8; 

3 4A 8 pose MODULE SSWBDEF *** 
: $or7 8 } Directory string work buffer for wild card directory processing 

s 273 @ Literal SWBSM_ELLIPSIS = 1; 

; 2976 0 Literal SWBSM_BOUNDED = 2; 

: 2977 0 literal $ WILD = 4 

; 2978 0 Literal SWBSM_DELIMITER = 8; 

:; 2979 0 Literal SWBSM_TRAVERSE = 16; 

: 2980 0 Literal SWBSM_FIRST = 32; 

; 2981 0 Literal SWBSM_ELLIPSIS_ EXISTS = 64; 

; 2982 0 Literal SWBSM_VALID_DIB = 128; 

; 263 @ Literal SWBSC_BID = 42; ; 

; 2984 0 Literal SWBSK-BLN = 306; 

3 985 0 Literal SWBSC_BLN = 328; 

; 2986 0 ! wild dir apse 

; 2987 0 literal SWBSS_SWBDEF = 328; 

> 2988 9 macro SWB$B_FCAGS = 0,0,8,0 %; ! flags (must be first) 

; 3989 0 macro SWBSV-ELLIPSIS = 6,6.1,0 3; i ellipsis 

3 990 0 macro SWBSV_ = 0,1,1,6 2; ! ellipsis bounded 

; 991 0 macro SWBS$V-WILD = 0,2,1,0 %: ! wild name =, og 

; 992 0 macro SWBSV~DELIMITER = 6,3,1,0 2; : vol lowing delimiter 

; 2993 0 macro SWBSV-TRAVERSE = 0,4.1,6 x; ! should skip subtree 

; 2994 0 macro SWBSV-FIRST = 0,5,1,0 £; ! first time through | 
; en & macro SWASV-ELLIPSIS EXxisfS ="0,6.1,0 %; ! dirs ec contains ... 
: 2996 0 macro SWBSV_VALID DIB = 0,7,1,0 2%; ' FIB DID is valid 
; 997 0 macro SWBSB_PATLEN = 1,0,8.6 &; ! length of current token 
3 998 0 macro SWBS$B_PPOS = 2,0,8,0 2; ! position in pattern 

3 999 0 macro SWB$B_ TOKENS LEFT = 3.0.8.0 %; ! number of non ... tokens left 

; 000 0 macro SWBSB_MINIMUA = 3-8-8 .8 3; ! minimum level for success 

3 001 0 macro SWBSB_MAXIMUM = 5,0,8,0 2; ! maximum level for success 

: 002 0 macro SWBSB_FIRST_E = 6.0.8.0 %; ' token ! of first ellipsis 

: 003 0 macro SWBS$B_DIRWCFLGS = 7,0,8,0 %; ! FWASB_DIRWCFLGS on entry 

3 004 0 macro SWB$B_BID = 8,0,8,0 2; ! block 1D 
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005 macro SWB$B_BLN = 9,0,8,0 2%: ! Length 

006 macro SWBS$Q- PATTERN = “12,0,0,0 %; 

00 Literal SwBSS _P iTER . = §; ! descriptor of patter 

008 macro SWBSL *SrRA PAT = 30.8 8.32 6°s a ! scratch copy of first Longword 

00 macro SWBST- SCRATCH: BU a : 419.0, 

0 Literal SWBSS_ SCRA = 4 ! scratch temp buffer (same size as FWAST_WILD) 

0 macro SWB$T PATTERN oe = 72 Q, 0,0 %; 
Literal SwBSS "PATTERN _BuF = 056;° ! should be: FWASC_MAXDIRLEN-2, | 
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* Copy sone (c) 1982, 1983 s 
* b y OIGITAL Equipment Corporation, Maynard, Mass. . 
® 
* are software is furnished under a license and poy be used and copied * 
* ly in accordance with the teres of such License and with the * 
* tne usion of the above copyright notice. This software or any other * 
: copies thereof may not be provided or otherwise made available to any * 
® 
® 
® 
® 
® 
® 
® 
® 
w 


other person. No title to and ownership of the software is hereby 


transferred. * 
® 
The information in this software is subject to change without notice * 
and should not be construed as a commitment by DIGITAL Equipment * 
Corporation. * 


DIGITAL assumes no responsibility for the use or reliability of its * 
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| 
software on equipment which is not supplied by DIGITAL. * 
3034 “Created TS-SEP-1906 22154248 by VAN<14 SEL U2 Source: 15-SEP-1906 22:40:54 G2SSSDUA20,(RNG GAC IRESGI, 
3035 Created 15-SEP-1984 22:54:43 by VAX=-11 SDL v2.0 Source: 15-SEP-1984 22:49:34 _$255$DUA28:CRMS.SRCIRMSSHR. 
3036 PE ETEATELATTATITLATTATATAELAE LALA LITLAE TILE LLL LLELE LEAL ELE LLL LL LLL LILLE LLL 
3037 
es 
039 !eee MODULE SSF SBDEF eee 
3040 literal SFSBS$C _B1D = 16; ' sf code 
3041 Literal SFSBSC~FIX_LEN = 10; ‘ io fetes of fixed size data 
s008 Literal SFSBSK_BLN = 68; ' Length of sfsb 
$07 ; ‘teret SFSBSC"BLN = 68; ' Length of sfsb 
3045 keep the next two fields in same order as they are in FAB 
047 literal SFSBS$S SESBDEF = 68; 
048 macro SFSB$Q FILENAME = 0, 0, 0 %; ; ; 
049 Literal oPsBSs FILE NAME © ! descriptor of shared file resource name. 
050 ! resource name is NODE, bEvICE, FILE_ID 
051 ! points to a, elow 
B36 macro SFSB$W ~NAME ="0 0 16,0 Bi ! subfield to address descriptor length field | 
05 macro SFSBSL-ADDRES ‘s ys 6. $2, 6% i subfield to address descriptor address field 
054 macro SFSB$B_BID = §.0.8:0'E ! bloc 
055 macro SFSB$B_BLN = 9.0.8.0 %: ! block Length in longwords 
056 macro SFSB$B~CURMODE = 10,0,8.0 2: i Mode of the current lock 
057 neers SFS°OSB_PREMODE = 11,0,8,0 2%; ! Mode of the previous lock 
058 ro SFSBST~ RESNAM = 12 6.6 &; 
059 literal SFSBSS 7 = $2; . bytes for name of shared resource 
Hie macro SFSBSL_ PReee CODE = 12,0,32,0 2; ' RMS facility code (RMS$) 
061 macro SFSB$W_FID_NUM = 16,6,16,6 x: ! file id word one 
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macro SFSB$L_HBK 
macro SFSBSL_EBK 


S_GB 
macro GBSB$Q_FILENAM 
Literal GBSBSS_FILEN. 
: resource name is 


iteral GBSB$C_BID = 
literal GBSBSM_ 


GBSB field definitions - global 
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file id word two 
file id word three 
22 byt 


lock status block 
VMS status code 
various status bi 


1 
$D 


Bliss 


UA2 


ts 
second longword of LKSB is the lock id 


lock value block 

fac bits from FAB : 
sharing bits (from FAB SHR field) 
high block 

end of file 


buffer synchronization block 


The GBSB contains the information necessary to determine if a 


agen section is already open 
s used for synchronizing access 


for a 


ile on a given node, and 
to the global section. 


FILE_NAME 

"s orocee- teeococe--- teoeecoe--- poececence} 

| FLAGS | CURMODE ; BLN BID ! 
Resource Name H 
jvcoseasaminamensad jasucentniaennentie ‘ 
Still to be def- status code 


: | VMS 
: ined status bits } 


ere sees ee meow ae poeoese 


i Lock Id. (Returned for new locks, ' 
i input for conversions) H 
Hl GBC i GBREF ‘ i 
: GBS - size of GS in bytes H 
' spare H 
fone we Beem Re EB Ee Meme meme eee + 
' spare ' 
eww ere em m en eer ere were oe ww eee mee ew ene sows + 
9; ! gbsb code 
NOTACCESSED = 1; 
68: ! Length of gbsb 
68; : length of gbsb 
EF = 68; 
E = 0,0,0,0 %; . : 
AME = 8; : descriptor of shared file resource name. 
NODE, DEVICE, FILE_ID 
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"9 ! points to RESNAM, below 
0 macro GBSBSW_NAME_LEN = 0,0,16,0 %; ! subfield to address descriptor length field 
1 macro GBSBSL_ADDRESS = 4, 32,0 %: ! subfield to address descriptor address field 
¢ macro GBSB$B_BID = 8-0-8. z; ! plock id 
macro GBSB$B_BLN = 9,0, i; ' block Length in Longwords 
4 macro GBSB$B_CURMODE = 1.0.8.0 2; ! Mode of the current lock 
5 macro GBSB$B_FLAGS = 11,0,8,0 2%; ! spare 
$ macro GBSBSV-NOTACCESSED = {1,0 1,0 %; ! Process has already decremeted access count for GBS. 
macro GBSBST-RESNAM = 12,0,0,0 4; 
8 Literal GBSBSS RESNAM = $2: ! 32 bytes for name of shared resource 
9 macro GBSB$L_LRSB = 44,0,32,0 %; i lock status bloc | 
0 macro GBSBSW_STATUS = 44.0. 16.0 %; ! VMS status code 
1 macro GBSB$W_S BITS = 46 18 0 %; ! various status bits : 
¢ macro GBSBSL_LOCK_ID = 48,6,32,0 &: ! second longword of LKSB is the lock id 
macro GBSB$W_GBC = 52 0,16,6 %: ! Number of global buffers in section. 
macro GBSBS$W_GBREF = 54°0,16,0 3; ! Number of accessors to global section. 
macro GBSBSL_GS_SIZE = §6.0,52,0 %; ! Size of global section in bytes. 
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This software is furnished under a License and may be used and copied 
galy in accordance with the terms of such License and with the 
inclusion of the above copyright notice. This software or any other 
ceptes thereof may not be provided or otherwise made available to any 
os oy pores No title to and ownership of the software is hereby 
ransferred. * 
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The information in this software is subject to change without notice * 
and should not be construed as a commitment by DIGITAL Equipment * 
Corporation. 


DIGITAL assumes no responsibility for the use or reliability of its * 
software on equipment which is not supplied by DIGITAL. * 
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poe MODULE SRMSDEF *** 
This SDL File Generated by VAX-11 Message V04-00 on 15-SEP-1984 22:53:50.83 
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COPYRIGHT (C) 1978, 1980, 1982, 1984 BY * 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 7 
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ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
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OTHERWISE MADE AVAILABLE TO ANY * 
IP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. ’ | 


® 
* 
® 
* 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. ® 
& 
® 
* 
* 
* 
« 
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COPIES THEREOF MAY NOT BE PROVIDED OR 
OTHER PERSON. NO TITLE TO AND OWNERSH 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 

SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

* 
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++ 

FACILITY: RMS 

ABSTRACT: 
THIS MODULE DEFINES ALL RMS COMPLETION CODES. 

ENVIRONMENT: 
THE MESSAGE TRANSLATOR MUST BE USED TO CONVERT RMSDEF.MSG INTO 
RMSDEF.SDL. THE SDL_ TRANSLATOR MUST THEN BE USED TO CONVERT 
RMSDEF.SDL INTO RMSDEF.MAR (AND RMSDEF .B32). 

AUTHOR: LEO F. LAVERDURE, CREATION DATE: 10-DEC-1976 


MODIFIED BY: 


co 00000000 
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206 V03-024 RASO314 RON SCHAEFER 21-JUN-1984 
207 WORK OVER THE MESSAGES ONE MORE TIME: FIX TYPO IN OK_RNF, 
4 DELETE ACPEOF ERROR, DELETE WSF ERROR. 
210 v03-023 RASO282 RON SCHAEFER 28-MAR-1984 
211 MINOR TEXT CHANGES AND COMMENTS ADDED. 
$18 DELETE RMS$_COP ERROR. 
214 V03-022 DASO00S DAVID SOLOMON 19-MAR-1984 
215 REMOVE RMS$_ECHO (NO LONGER NEEDED AS A RESULT OF NEW 
$1$ IMPLEMENTATION FOR ECHO SYSSINPUT -> SYSSOUTPUT). 
218 v03-021 JWT0150 JIM TEAGUE 01-FEB-1984 
219 ADD RMS$_IFF FOR TRYING TO WRITE-ACCESS A FILE ON 
$39 MAGTAPE THAT HAS NON-0 VALUE FOR ANSI BUFFER OFFSET. 
222 v03-020 RASO233 RON SCHAEFER 9-JAN-1984 
223 ADD RMS$_NOVALPRS ERROR FOR SSEARCH NOT PRECEDED BY 
$e VALID SPARSE. 
$52 V03-019 JwT0148 JIM TEAGUE 20-DEC-1983 
$i ADD A JNL XAB ERROR FOR CONFLICTING RU ATTRIBUTES 

$8 ON SCREATE: RMS$_XCR. 
$6 v03-018 RASO171 RON SCHAEFER 38- JUL ~1985 
231 ADD RMS$_BUSY; A STRUCTURELESS ERROR (RO-ONLY STATUS) 
232 REPLACING TEMP3, 
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: 3 ! 

: 4 8 i v03-017 DASO004 DAVID SOLOMON 28-JUN-1983 

5 3 ; ADD RMS$_FILEPURGED; ADD RMS$_ACPEOF FOR TALEWSKI. 

: 3 0 i v03-016 KPL 0007 PETER LIEBERWIRTH 8-JUN-1983 | 
: 8 0 i FIX SPELLING IN JNL ERROR MESSAGES, ADD CJF ERROR WHICH | 
; 39 0 ; WILL SOON SUBSUME COP AND CQE. | 
: ef 8 i v03-015 DAS0003 DAVID SOLOMON 18-FEB-1983 
24g : ADD XNF (REPLACING TEMP9), TMR (NEW), LWC (NEW). | 
; ehh 0 i v03-014 KBT0497 KEITH B. THOMPSON 18-FEB-1983 | 
; Sez 2 ADD INCOMPSHR ERROR (REUSE OF TEMP1 SLOT) | 
: 3247 0 i v03-013 RASO120 RON SCHAEFER 2=F EB-1983 | 
: 3248 0 i ADD ECHO PSEUDO-STATUS TO SUPPORT ECHO OF SYSSINPUT | 
3249 : ; TO SYS$OUTPUT. | 
: 3526 0 i VO3-012 JwHO174 JEFFRY W. HORN 24=JAN-1983 

; 3528 : : ADD CQE AND COP ERRORS. 

; 3254 0 i v03-011 KPLO006 PETER LIEBERWIRTH 7=JAN-1983 

é $$22 8 ADD OK_RULK FOR RECOVERY UNIT SUPPORT. 

: 3257 9 ADD REENT ERROR FOR SRENAME. 

: 3259 0 i V03-009 JwHO15S3 JEFFREY W. HORN 8-DEC-1982 

3 aso 2 ADD NRU ERROR. 

: 326¢ 0 i v03-008 JwHO152 JEFFREY W. HORN 8-DEC-1982 
; sser 8 ADD JNS ERROR. 
3es 6 V03-007 MCNO002 MARIA DEL C. NASR 15-NOV-1982 | 
> 3266 0 i REPLACE ORD ERROR CODE ELIMINATED BY MCNOQO1, SINCE 

: 3267 0 ; THE NETWORK CODE REFERENCES IT. 

: 3269 0 i v03-006 MCN NO001 MARIA DEL C. NASR 26-OCT-1982 
: 3270 0 i PRINT KEY OF REFERENCE OR AREA IDENTIFICATION NUMBER | 
: 3271 0 i INSTEAD OF XAB ADDRESS FOR ERRORS RETURNED DURING 

: 3272 0 i INDEXED FILE CREATION. ALSO RENAME ALL UNUSED ERROR 

: 3278 : ; CODES TO TEMP 

: 3275 0 i V03-005 swHO102 JEFFREY W. HORN 24-SEP-1982 | 
; 3878 9 ; ADD RUP ERROR. | 
: 3578 0 i 03-004 RASO09S RON SCHAEFER 27-SEP-1982 

: 3279 : ADD OVRDSKQUOTA ERROR. 

: 3281 0 i V03-002 swH0002 JEFFREY W. HORN 26-JUL-1982 

; 3282 0 ; CONVERT TO .MSG FORMAT. ADD RUM ERROR. 

: 35pi 0 i v03-001 ywHOOO1 JEFFREY W. HORN 20-JUL-1982 

> 3285 ADD JNF, JOP, AND NOJ ERRORS. 

; $B i V02-042 KPL0005 PETER LIEBERWIRTH 4-FEB-1982 

; 288 0 ADD ERROR MESSAGES RMS$_EXENQLM AND RMS$ DEADLOCK 
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3 90 0 ' ;, 
; 91 0 ' v02=041 ¢DS0001 C D SAETHER 24-JAN-1982 F 
: 3 9 ADD GBC AND CRMP ERRORS. : 
3 94 8 ‘ V02-040 JAK0069 RYCKA 15=JAN=-1982 ; 
; 99 0 ADD SUPPORT AND NETFATL ERROR CODES. | : 
; 97 0 : V02-039 JAK0068 J A KRYCKA 31-DEC-1981 3 
3 3698 4 MODIFY TEXT FOR SUP, NET, BUG_DAP, rt “ENV ERROR MESSAGES. ; 
: 3860 0 i v02-038 LyA0001 LAURIE ANDERSON 20-DEC-1981 | ; 
; $303 8 MODIFIED SOME MESSAGES TO READ BETTER. | ; 
; 303 0 ! V02-037 JAK0063 J A KRYCKA 31-AUG-1981 3 
3 se0e 8 ADD CRE_STM SUCCESS CODE. : 
: 3306 06 i V02=036 KPLO004 PETER LIEBERWIRTH 13-JAN-1981 : 
; 3307 0 \ ADD ENQ SEVERE ERROR MESSAGE, TO INDICATE “$ENO/$0EC FAILURE. | : 
; 3308 4 ALSO ADD SUCCESS CODES OK_RRL, AND OK_W | : 
: $319 8 VO2-035 REFORMAT J A KRYCKA 30-JUL-1980 ; 
° 331 2 0 ' —_ j Ps 
; 3313 0 literal RMS$ FACIL ITY = 1; | 3 
> 3314 0 Literal RMS$V_STVSTATUS = 14; ! MOVE TO BIT 14 OF THE : 
; 3315 0 ' STATUS CODE IT INDICATES | : 
: 3316 0 ' THAT STV CONTAINS A SECONDARY : 
3 3317 O ' STATUS CODE. 3 
; 3318 O Literal RMS$_SUC = 65537; 3 
; 3319 0 Literal RMSS"NORMAL = 65537; } | ; 
; ee fe | F 
3; eel @ : : 
3 ©3322 «+O ' SUCCESS CODES : 
$ 3325 0 ! 3 
s 3346 @ = ; 
; 3325 @ ! BIT 16 = BIT 15 = 1 r 
s 3326 90 (iterat bg & ys - 98305; 3 
: 327 0 ' (NO USER N R RECEIVES THIS CODE) | : 
: 328 O iteeret Canse PENDING = 98315; : 
: 329 0 Literal RMS$_OK_DUP = 98321; 3 
; 3330 0 Literal RMS$-OK-IDX = 98329; | : 
: 3331 O ' (RECORD RASBEEN INSERTED, BUT INDEX STRUCTURE IS NO LONGER : 
; 3332 0 ee oeT IMAL | ; 
; $337 8 literal R K_RLK = 96337 s 
: 334 ' (BECAUSE + oe eee SET R k in ROP FIELD WHEN RECORD WAS LOCKED.) : 
. 3555 @ Literal RM = 9834 3 
: 3336 0 ! (BECAUSE READER SET RRL in ROP FIELD WHEN ACCESSING RECORD.) : 
Fo 1 ae i <THIS CODE U O BE OK_RRV) : 
: $395 4 ' OK_RRV at <record was inserted successfull n primary? 3 
: 339 i taut IT MAY NOT abe ACCESsIBL E VIA ONE-OR-MORE SEC nDaR KEYS 3 
: 3340 0 i D NOT BY RFA A DRESSING. FILE RE-ORGANIZATION OE COMMENDED:S : 
; 341 0 Literal RMSS_KFF = 53; | : 
: 342 0 Literal RMS$"OK_ALK = 98361; : 
; 34 Literal RMS$_OK_DEL = 9 $9: : 
: 344 Literal RMS$"OK"RNF = 98377; | : 
; 345 Literal RMS$_OK-LIM = 98385; : 
: 346 0 Literal RMS$_OK_NOP = 98593; 3 
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580K WAT = 98401; | 
GAT IN ROP WAS SET AND RECORD WAS ALREADY 


2 
E 
S$_CRE_STM = 98409; 
S$"OK_RULK = 98417: 


SUCCESS CODES PASSED THRU FROM DRIVERS AND ACP - BIT 15 = 0 


33 ! TERMINAL I/0 ABORTED DUE TO CTRL/C | 


N 
TERMINAL I/O ABORTED DUE TO CTRL/Y 
iteral RMS$_CREATED = 67097; 
I 5 NOT OPENED 
iteral RMS$ SUPERSEDE = 67121; 
CREATED FILE SUP ERSEDED EXISTING VERSION 
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I AG 
teral RMS$_FILEPURGED = 67193; 
CREATE FICE CAUSED OLDEST FILE 
, VERSION TO BE PURGED 
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“BIT 16 = BIT 15 = 1, BIT 14 = 0 
90 iteral RMS$_ACT = 98966; 
93 iteral RMS$-DEL = 98914; 
36 iteral RMS$_INCOMPSHR = 98922; 
9 iteral RMS$_DNR = 38930: 
394 iteral RMS$_EOF = 98938; | 
395 iteral RMS$_FEX = 98946; 
396 iteral RMS$_FLK = oRa23' 
397 iteral RMSS-FNF = 9 962; | 
398 iteral RMS$_PRV = 98970; 
399 iteral RMS$_REX = 98978; 
400 iteral RASS ALE = 4g 
401 iteral RMS$_RNF = 98994; 
402 (RECORD REVER WAS is FILE, OR HAS BEEN DELETED.) 
403 iteral RMS$_WLK = 99002; 


| 


14 | 
15- Sep-1984 75 VAX=-11 Bliss<-32 V4.0-742 Page 65. 
1328ee=18Re 5:88356 — “SSsbSnGAd8 SCAMS CBG IRNG. R32;1 9 (9) 
04 iteral RMS$_EXP = 33018: 
405 iteral RMSS_NMF = 99018; 
406 iteral RMS$ SUP = 99026; 
407 (NOTE THAT SUPPORT HAS REPLACED SUP EXCEPT WHEN RMS CANNOT 
408 MAP THE DAP STATUS CODE INTO A FAL STATUS CODE. 
409 (NOTE ALSO THAT SUP SHOULD HAVE BEEN DEFINED AS A SEVERE 
4) ERROR CODE. HOWEVER, SUPPORT IS A SEVERE ERROR CODE.) 
41 iteral RMS$_RSA = 99044; 
iteral RMS$_CRC = 3aN85: 
iteral RMS$_WCC = 99050; | 
iteral RMS$_IDR = 99058; 
iteral RMS$_LWC = 99066: 
iteral RMS$_XCR = 99074: | 
iteral RMSS-NOVALPRS = 99082; | 
a ' 


ERROR CODES - WITH STV ERROR CODE 


“BIT 16 = BIT 1 
iteral RMS$ AC 

iteral RMS$ CR 

iteral RMS$_DAC 
iteral RMS$_ENT 
iteral RMS$_EXT 
pers RMS$_FND 
i 
j 
i 
i 


= 
" 


| | 


teral RMS$_MKD 
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iteral RMS$_JNF 
oa 


SEVERE ERROR CODES - WITHOUT STV 
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“BIT 16 = BIT 15 = 1, BIT 14 = 0 
iteral RMS$_TEMPO = 99308; | 
iteral RMS$_AID = 99316; | 
iteral RMS$_ALN = 93363: 
iteral RMS$_ALQ = 99332; 
iteral RMS$_ANI = 99340; 
iteral RMS$_AOP = 99348; | 
iteral RMS$_BKS = gaeee: 
iteral RMS$_BKZ = 99364; 
iteral RMS$_BLN = 99372; 
iteral RMSS$_ = 99380; | 
iteral RMS$-BUG_DDI = 99388; | 
iteral RMS$_BUG_DAP = 99396; | 
iteral RMS$_BUG_XX1 = 99404; 
iteral RMS$_BUG_XX2 = 99412; 
iteral RMS$_BUG_XX3 = 99420; | 
iteral RMS$_BUG_XX4 = 99428; 
iteral RMS$_BUG_XX5 = 994356; 

Literal RMS$"BUG-XX6 = 99444: 
Literal RMS$_BUG_XX7 = 99452; 
Literal RMS$_BUG_XX8 = 99460; 
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; 46) Literal RMS$_BUSY = 99468; ; 
: 346 Literal RMS$-CCR = 99476; : 
; 46 Literal RMS$_CHG = 99484; : 
; 464 Literal RMSS$_CHK = 8ae05; : 
: 3465 0 Literal RMS$-COD = 9990 ; | ; 
; 466 0 Literal RMSS$_CUR = 99508; : 
; 467 0 Literal RMS$_DAN = 99516; ; 
$ 468 0 Literal RMS$_DEV = 83263! 3 
>; 3469 0 Literal RMS$_DIR = 99532; 3 
: 3470 0 Literal RMSS_DME = 99540; | ; 
: 3471 0 Literal RMS$_DNA = 99548; ; 
; ze! 0 Literal RMS$_DTP = 99556; : 
; 3673 0 — Literal RMS$-DUP = 99564; | ; 
: 3474 0 Literal RMS$_DVI = 99572; | : 
3; g475 9 Literal RMS$_ESA = 99580; : 
: 3476 0 Literal RMSS-ESS = 99588; | ; 
>; 3477 0 Literal RMS$_FAB = 99596; : 
>; 3478 O Literal RMSS$_FAC = 99604; 3 
; 3479 0 Literal RMS$_FLG = 99612; : 
> 3480 0 Literal RMS$_FNA = 99620; : 
>; 3481 9 Literal RMS$_ = 99628; ; 
>; 3482 0 Literal RMS$_FSZ = 99636; 3 
; 3483 0 Literal RMS$_FOP = 99644; : 
>; 3484 0 Literal RMS$_FUL = 99652; 3 
>; 3485 0 Literal RMS$_IAL = 99660; 5 
>; 3486 0 Literal RMS$_IAN = 99668; : 
; 3487 QO Literal RMS$_IDX = 99676; : 
: 3488 0 Literal RMS$_IFI = 99684: ; 
; 3489 0 Literal RMS$_IMX = 99692; : 
:; 3490 0 Literal RMS$_IOP = 99700; | : 
; 3491 0 Literal RMS$_IRC = 99708; 3 
; 3492 0 Literal RMS$_ISI = 99716; 3 
>; 3493 0 Literal RMS$_KBF = 99724 : 
:; 3494 0 Literal RMSS$_KEY = 99752; . 
>; 3495 0 Literal RMSS$_KRF = 99740; : 
>; 3496 0 Literal RMS$_KSZ = 99748; : 
>; 3497 O Literal RMS$_LAN = 99756 ‘ 
>; 3498 0 Literal RMS$_TEMP1 = 99764; | ; 
; 3499 0 Literal RMS$_LNE = 99772 3 
: 3500 0 Literal RMSS$S_TEMP2 = 99780; : 
; $253 0 Literal RMS$_MRN = 99788; ; 
; 308 0 Literal RMSS_MRS = 99796: ; 
; 503 0 Literal RMS$_ = 99804; : 
: 504 8 Literal RMS$_NEF = Me Ih : 
$ 505 Literal RMS$S_TEMP3 = 99820; : 
3 506 0 Literal RMS$_NOD = 99828; F 
; 507 0 Literal RMS$_NPK = 99836; : 
: 508 0 Literal RMS$_ORD = 99844; ! ! NOT USED AS OF V4 : 
3 509 0 Literal RMS$_ORG = a4 Ht F : 
3 510 0 Literal RMS$_PBF = 99860; : 
3 511 8 Literal RMS$_PLG = 99868; 3 
; 216 Literal RMS$_POS = 99876: : 
: 3513 0 Literal RMS$-TEMP4 = 99884; ; 
: 514 Literal RMS$_QUO = 99892; 3 
: 515 Literal RMS$_RAB = 44545 ; : 
; 218 Literal RMS$_RAC = 99908; : 
: 517 0 Literal RMS$_RAT = 99916; : 
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iteral RMS$_RSL 
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iteral RMS$_REF 
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teral RMS$_KNM 
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Literal RMS$_NRU = 100 3e8: 
Literal RMSS$_IFF = 100556; ; 
SEVERE ERRORS = WITH STV ERROR CODE 
_ BIT 16 = BIT 15 = ay 1421 
iteral RMSS_ATR = 114 38: 
iteral RMS$_ATW = 114900; | 
iteral RMS$_CCF = 114908; | 
iteral RMS$_CDA = 114916; | 
iteral RMS$_CHN = 132883: | 
iteral RMS$_RER = 114932; 
3 iteral RMSS_RMV = 114940; | 
3 iteral RMSS_RPL = 114948; 
3 iteral RMS$_SYS = 114956; 
35 iteral RMS$_WER = 114964; 
35 iteral RMS$_WPL = 114972; 
35 iteral RMS$_IFA = 114980; 
35 iteral RMS$_WBE = 114988; 
$2 iteral RMS$_ENQ = 114996: 

5 iteral RMSS_NETFAIL = 115004; | 
35 iteral RMS$_SUPPORT = 115012; 
35 iteral RMS$_CRMP = 115020; 
35 iteral RMS$_NOJ = 115028; 
% iteral RMS$-REENT = 115036; | 
36 iteral RMS$_CJF = 115044; 

3 iteral RMS$_TMR = 115052; 
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bongs tent (c) 1982, 1983 ; * 
by DIGITAL Equipment Corporation, Maynard, Mass. * 
® 


This software is furnished under a License and may be used and copied * 
qnly in accordance with the terms of such license and with the * 
inclusion of the above copyright notice. This software or any other * 
copies thereof may not be provided or otherwise made available to any * 
+ ae pares No title to and ownership of the software is hereby * 
ransferred. * 


The information in this software is subject to change without notice * 
and should not be construed as a commitment by DIGITAL Equipment * 
Corporation. * 


DIGITAL assumes no responsibility for the use or reliability of its * 
software on equipment which is not supplied by DIGITAL. * 
® 
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Created 15-SEP-1984 22:55:02 by VAX-11 SDL v2.0 Source: 15-SEP-1984 22:49:39 _$255$DUA28:CRMS.SRCIRMSUSR. | 
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!##* MODULE SFABDEF *** 


§ ¢¢¢¢¢enent 
‘ the fields thru ctx must not be modified due to 
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; 689 0 Literal FABSC_FIX = 1; ' fixed Length records ; 
5 690 Literal FABSC_VAR = gi ! variable length records , 
; 691 Literal FABSC_VFC = 3; ! variable fixed control : ; 
: 69 Literal FABSC_STM = 4; ! RMS-11 stream (valid only for sequential org) : 
3 693 0 Literal FABSC_STMLF = 5; ! LF stream (valid only for sequential org) 3 
; 694 0 Literal FABSC_STMCR = 6; ' CR stream (valid only for sequential org) $ 
; 699 0 Literal FABSCCRAXRFR = é; i maximum cfm supported | : 
; 697 9 Literal FABSM_AI = 2; ; 
; 698 0 Literal FABSM_BI = 4; : 
: 3699 6 Literal FABSK-BLN = 80; ' Length of fab | ; 
; 700 8 Literal FABSC_BLN = 80; ! Length of fab : 
; 701 Literal FABSS_FABDEF = 80; : 
: 702 0 macro FABSB_BID = 0,0,8,0 %: ! block id ; 
; A 0 macro FABSB_BLN = 1,0,8,0 %; ! block len : 
; 704 0 macro FABSR_IFI_OVEKLAY = 2,0,16,0 %; : 
; s700 @ macro FABSW_IFI = 2,0,16,0 4; internal file index PF 
: 3706 0 macro FABSR-IFI_BITS = 2,0,16,0 %; | : 
; 3707 0 macro FABSV-PPF-RAT = 2.6.8.0 %; | ; 
; 3708 O Literal FABSS _PPF RAT = 8; ! rat value for process-permanent files — F 
; Tay 4 8 macro rae Mand IND = 2.14.1,0 ¥3 ! indirect access to process-permanent file : 
: 3711 0 macro FABSR-FOP_OVERLAY. = 4,0.32,0 &; | 
3 Har: 0 macro FABSL_ = 4,0,32,0 &:; ! file options : 
: 3713 0 — macro FABSRIFOP_BITS = 4.0,32,0 %: ; 
; 3714 0 macro FABSV_MXV = 4.1.1.0 £3 ! maximize version number : 
; srs © macro FABSV_SUP = og-1 68 q; ! supersede existing file : 
; 3716 0 macro FABSV_TMP = 4,3,1,0 2%; ! create temporary file $ 
> pre © macro FABSV_TMD = 4,4,1,0 %; : create temp file marked for delete : 
; af18 8 macro peer oeee . $-3-] 2 2: : deferred yrite (rel end idx) : 
: 3720 0 —macro FABSVZRWO = 4°7.1.0 3: i fewind at on open 
; $75! 8 macro foe Hn = 2:8-1-8 : use next magtape position F 
; macro = 4, : ! write checkin 3 
: 3723 0 macro FABSV-NEF = 4.1.1.0 i; | inhibit end of file positioning ; 
; macro we. = 4,11,1,0 2; ! rewind mt on ciose 3 
3 $552 8 macro ae I ag = o-1g-1-8 &: } étenqunt ut on close (not implemented) 3 
; macro * = 4,13,1,0 2%; ! spoo e on close 3 
; ese 4 macro 2 = $- 13-168 submit coanand file on close : 
° macro = = 6 ote Py H elete sud-o on ° 
; sey @ macro FABSV_NFS = 4,16,1,0 2; ! non-file structured operation — : 
; 3730 0 macro FABSV_UFO = 4,17,1,0 2%; ! user file open - no rms operations : 
s 3731 O macro FABSV_PPF = 4,18,1,0 %; ! process permanent file (pio segment) 3 
| PRS 8 aSere FABNEMG £2018 & | Resttasote"astensions’ UE ; 
: 734 0 macro FABSV~CBT = 4,21.1.0 2: i continuous best try ; 
; 735 0 macro FABSV_RCK = 4,23,1,0 2%; ' read checking : ‘ : 
3 238 noses peer = tSeeh 3 2; use mong Diack oi ete. and/or fid fields for open : 
Ps mac al = e ete ° . create non-existen ° 
; 738 0 macro FABSV_ESC = $5218 %; ' ‘escape’ to non-standard function (S$modify) ; ; 3 
5 739 0 macro FABSV_TEF = 4,28,1,0 2; ! truncate at eof on close (write-accessed seq. disk file only) : 
: 740 0 macro FABSV_OFP = £93018 2; ' output file parse (only name type sticky) j 
: oe 8 ascre pet anre . $35) -8 2: anon Sule open (image activator only release 1) : 
; 3748 0 macro FABSL_STV = 13,6,$8.0 k; i status value : ; 
; 3744 0 macro FABSL_ALQ = 16,0,32,0 2; ' allocation quantity 3 
; 3745 0 macro FABSW_DEQ = 20,0,16,0 2; ! default allocation quantity : 
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; 746 0 macro FABSR_FAC OVERLAY = 22,0,8,0 %; ; 
; 74 macro FABSB_FAC™= 22,0,8,0 %; ! file access | ; 
: 3748 0 macro FABSR-FAC_BITS = 22,0,8,0 %; | ; 
: 749 «0 macro FABSV~PUT-= 22,0,1,0 4; ! put access ; 
; £30 0 macro FABSV_GET = 22,1,1,0 %; ! get access : 
; 751 0 macro FABSV_DEL = +g-10 %; | delete access : 
3 I2¢ 0 macro FABSV_UPD = 22,3,1,0 %; ! update access 3 
: re 8 macro FABSV_TRN = $1 08 %; ! truncate access ; 
; 754 macro FABSV_BIO = 22,5,1,0 2%; ! block i/o access : 
: 755 0 macro FAB$V_BRO = §-1.0 %; ! block and record i/o access : 
3 756 0 macro FABSV_EXE = 22,7,1,0 %; ! execute access (caller must be exec or kernel mode, | : 
; ef 0 ! "ufo must also be set) : 
: 3758 0 macro FABSR SHR_OVERLAY = 23,0,8,0 %; : 
: 759 0 macro FAB$B_SHR'= 23,0,8,0 2%: ! file sharing : 
: 3760 0 macro FABSR_SHR_ BITS = 23,0,8,0 %; ; 
; 761 8 macro FABSV_SHRPUT = $30.18 %; ! put access ; 
; 166 macro FABSV_SHRGET = 23,1,1,0 %; ! get access : 
:; 3763 0 macro FABSV_SHRDEL = 39-168 %; ! delete access ; 
> 3764 0 macro FABSV_SHRUPD = 1,0 %; ! update access : 
s 3765 0 macro FAS$V-MSE = 23,4,1,0 &; ! multi-stream connects enabled : 
; 3/68 0 macro FABSV_NIL = $3°3°1-8 2; ! no shor tng | : 
3 767 O macro FABSV_UPI = 23,6,1,0 2%; ! user provided interlocking (allows multiple : 
; 3768 0 ' " writers’to seq. files) : 
>; 3769 O macro FABSL = 24,0,32,0 %; ! user context : 
3 3770 O | eecce kere 3 
; Sr © macro FABSB_RTV = 28,0,8,1 %; ! retrieval window size : 
3 3i7¢ 0 macro FABSR_ORG_OVERLAY = 29,0,8,0 %; ; : 
; i 8 macro FABS$B_ORG = 29,0,8,0 %; ! file organization ls 
; 3774 0 — macro FABSRIORG_BITS = 29,0,8,0 %; | : 
: 3775 0 macro FABSV = 29,4,4,0 4; ; 
: 3778 0 Literal FABSS ORG = 4; ; 
: 777 (+O macro FABSR RAT _OVERLAY = 30,0,8,0 %; 3 
; 3778 O macro FABSB_RAT = 9.0.8 0 %; ! record format : 
: 3779 0 macro FABSR-RAT_BITS = 30,0,8,0 %; : 
; 3780 0 macro FABSV~FIN-= 30,0,1,0 4; ! fortran carriage-ctl : 
3; sel ®@ macro FABSV-CR = 30,1,1,0 %: ! Uf-record-cr carriage ctl : 
; 3762 0 macro FABSV_PRN = 36.¢.1.0 i; ! print-file carriage ctl ; F 
; 3765 © macro FABSV_BLK = 30,3,1,0 2%; ! records don't cross block boundaries : 
3 gree 0 macro FABSB_RFM = 33-8-8 0 %; ! record format : 
: 785 0 macro FABSL_JNL = 32,0.32,0 &; ! cb address : 
s; 37a © macro FABSL_XAB = 36,0,32,0 2; ! xab address 3 
3 787 0 macro FABSL_NAM = tO +8 -35°8 2; ! nam block address : 
; 783 0 macro FABSL_FNA = 44,0,32,0 2; ! file name string address : 
: 789 0 macro FABSL_DNA = 4 Boge 0.2; ! default file name string addr : 
; 790 0 macro FABSB_FNS = 52,0,8,0 %:; ! file name string size : 
: 791 0 macro FAB$B8_DNS = 53,0,8,0 2%: ! default name string size 3 
3 792 «#0 macro FABSW_MRS = 34.0.18.9 £; ! maximum record size : 
: 793 0 macro FABSL_MRN = 56,0,32,0 2; ! maximum record number 3 
; 3794 0 macro FABSW_BLS = 60,0,16,0 2; ! plocksize for tape 3 
: 3795 0 macro FAB$B_BKS = 6¢. 78.0 2; ' bucket size : 
; 3/38 0 macro FABSB_FSZ = 65,0,8,0 2; ! fixed header size | | : 
3 797 0 macro FABSL_DEV = 64,0, $10 k; ! device characteristics | : 
: 798 0 macro FABS$L_SDC = $8.0. 0 2; : spool ing device characteristics : 
: 799 0 macro FABSW_GBC = 0,16,0 2%; ! Global buffer count : 
: 3800 0 macro FABSRTACHODES OVERLAY ="74,0,8.0 %; | ; 
; 801 0 macro FABSB_ACMODES = 74,0,8,0 2: : agent access modes : 
: 3802 0 macro FABSR-ACMODES_BITS = 74,0,8.0 %; | ; 
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macro FABSV_LNM MODE = 74,0,2,0 2%; 


803 
804 Literal Aes LAM_MODE = 2;° ! ACMODE for log nams 
805 macro FAB CRA AN pope = 74,2,2,0 %; 

Literal Apaass CHAN_MODE = 2: ! ACMODE for channel 


macro FABSV_FILE nODE = 74,4,2,0 %: 


808 Literal PABSS FICE ODE = ci ! ACMODE to use for determining file accessibility 
809 macro FABSR_RCF OVERLA Y = 75,0,8,0 %; ! recovery control flags 
81 macro FABSB_RCF = 8 0 %: 
81 macro FABSR_RCF BITS = §,0,8,0 %; 
81 macro FABSV_RU = 75, 9.1.2 Bs ! recovery unit recovery 
81 macro FABSV_Al = 75, 4.1.8 i; ! after image recovery 

macro FAB$V_BI = 75, 2.1.0 %: ! before image recovery 


tees MODULE SRABDEF *## 
i record access block (rab) definitions 
there is one rab per connected stream 


it is used for all communications between the user 
and rms concerning operations on the stream 


1 ¢¢¢¢eneeee 


the fields thru ctx cannot be changed due to commonality 
with the fab 


iteral RABSC_BID = 1; ! code for rab 
iteral RABSM_PPF RAT’ 
iteral RABSM_PPF = IND 
iteral RABSM_ASY = 
iteral RABSM_TPT 
iteral RABSM_REA 
iteral RABSM_RRL 
iteral RABSM_UIF 
iteral RABSM_MAS 
iteral RABSM_FDL 
iteral RABSM_HSH 
iteral RABSM_EOF 
iteral RABSM_RAH 
iteral RABSM_WBH 
iteral RABSM_BIO 
iterat RABSM_iV2 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


we 
mo: 
eee 


teral RABSM_LOA 
teral RABSM_LIM 
iteral RABSM_LOC 
teral RABSM_WAT 
teral RABSM_ULK 
teral RABSM_RLK 
teral RABSM_NLK 
iteral RABSM_KGE 
teral RABSM_KGT 
teral RABSM_NXR 
iteral RABSM_RNE 
teral RABSM_TMO 
teral RABSM_CVT 
iteral RABSM_RNF 
teral RABSM_ETO 
teral RABSM_PTA 
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; 860 Literal RABSM_PMT = a IE GH T9, : 
; 3861 Literal RABSM-CCO = -2147483648; | ; 
3 £66 Literal RABSC_SEQ = 0; ! sequential access ; 
; 3863 0 Literal RABSC_KEY = 1; i keyed access | : 
3 864 0 Literal RABSC_RFA = ¢: ! fa access : 
; 865 9 Literal RABSC"STM = 3: ' stream access (valid only for sequential org) : 
; 3866 Literal RABSK-BLN = 68; i Length of rab | ; 
; 867 0 Literal RABSC_BLN = 68; ! length of rab : 
; 868 0 Literal RABSS we = 68; 3 
; 869 0 macro RAB$B_BID = 0.8.8 %; ! block id | 5 
; 870 0 macro RAS$B_BLN = 1,0,8,0 %; ! plock length 3 
; 3871 0 macro RABSR-1S1_OVERL AY = 2,0,16,0 %; ; 
; 87 macro RABSWISI~= 2,0,16,0 &; internal stream index : 
: 3873 0 ! Cifi in Tab) : 
: 3874 0 macro RABSR_ISI_BITS = 2,0,16,0 %; | : 
; 3875 0 — macro RABSV-PPF-RAT = 2,6,8,0 3; : 
>; 3876 0 Literal RABSS_PPF RAT = 8; ! rat value for process-permanent files 3 
; wee macro RABSV_PPF_IND = 2.14,1,0 %; ! indirect access to process-permanent file : 
; 3878 0 ! fi.e., restricted operat ions) 3 
; 3879 0 macro RABSR_ROP_OVERLAY = 4,0,32,0 %; | ; 
>; 3880 0 macro RAB$L_ROP = 4,0,32,0 i: ! record options F 
: 3881 0 macro RABSR_ROP_BITSO = 4,0,52,0 %; | : 
: Song 0 macro R wASY = 4,0,1,0 2; ! asynchronous operations ; ; 
>; 38835 0 macro RABSV_TPT = 4,1,1,0 2%; ! truncate put - allow sequential put not at 3 
>; 3884 0 macro RABS$V_REA = ¢-§-1-8 %; ' lock record for read only, allow other readers 3 
: 3885 0 macro RABSV_RRL = 4,5,1,0 2; ! read record regardless of lock : 
>; 3886 0 macro RABSV_UIF = 4,4,1,0 2%; ' update if existent s 
; 3887 0 macro RABSV_MAS = 4,5,1,0 2%; ! mass-insert mode | : 
>; 3888 0 macro RABSV_FDL = 4,6,1,0 2%; ! fast record deletion $ 
; 3889 0 macro RABSV_HSH = 4,7,1,0 2%; ! use hash code in bkt F 
; 3890 0 macro RABSV_EOF = 4,8,1,0 2%: ' connect to eof 3 
; 3891 0 macro RABSV_RAH = 4,9,1,0 %; ! read ahead 3 
; 3892 0 macro RAB$V-WBH = 4,10,1,0 4; ! write behind — : 
> 3893 0 macro RABSV_BIO = 4,11,1,0 %; ! connect for bio only. : 
> 3894 0 macro RABSV_LV2 = 61-168 %; ! level 2 RU lock consistancy : 
; se7> © macro RABSV_LOA = 4,13,1,0 2; ! use bucket fill fergemtene : : 
; $209 macro RABSV_LIM = 4,14,1,0 2%; ! compare for key Limit reached on $get/$find seq. (idx only) ; 
; 898 0 ! the following bits are input to : 
3 899 0 ! $find or $get, (see above also REA and RRL) : 
; b's 4 } (separate byte) : 
: 5902 0 macro RABSV_LOC = 4,16,1,0 2; ! use locate mode F : 
s 903 0 macro RABSV_WAT = $- 120168 2; ! wait if record not available : 
: 904 0 macro RABSV_ULK = 4,18,1,0 2%; ' manual unlocking ; 3 
3 905 0 macro RABSV_RLK = 4,19,1,0 2%; ' allow readers for this locked record : 
5 $008 0 macro RABSV_NLK = 4, 9-1-8 %; ' do not lock record | : 
3 907 0 macro RABSV_KGE = 4,21,1,0 2%; ' key > or = 3 
3 908 8 macro RABSV_KGT = 4, g-1-8 2; : ney greater than : 
; 909 macro RABSV_NXR = 4,23,1,0 2: ! get non-existent record : 
; 910 0 macro RABSV_RNE = 4,24,1,0 2%; ! read no echo : | : 
3 911 0 macro RABSV_TMO = 4, 30168 2; ! use time-out period : 
$ a 0 macro RABSV_CVT = 4, g.1. 2; ! convert to upper case : 
: 9135 0 macro RABSV_RNF = 4,27,1,0 2; ! read no filter . | : 
: 914 0 macro RAB$V_ETO = 4, g.1.0 BS ' extended terminal operation 3 
; 3919 0 macro RAB$SV~PTA = 4,29,1,0 2: ' purge type ahead : 
: 916 0 macro RABSV_PMT = 4,50,1,0 2; ! use prompt buffer 3 
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: ai? 8 macro RABSV_CCO = 4,31,1,0 %; ! cancel control o on output 
: 3919 0 i the following bits are terminal qualifiers onl 
; ; » 8 (separate byte) : , 
4 } 
3 9 ¢ 0 : 
3 9 : | 
$ i ¢ 0 eof, thus truncating file (seq. org only) 
Py ° | 
: 3926 0 ! these next two should be in the byte for bits 
3 3 i 8 input to $find or $get, but there is no room there | 
; 929 0 : ee pos Lente bits may be 
:; 3930 0 ! input to various rab-related 
3 $933 4 operations 
; 3988 0 macro RABSR_ROP FIELDS = 4,0,32,0 %; | 
>; 3934 0 macro RAB$B_ROPT = 5,0,8.0 %; ! various options 
. wa © macro RAB$B_ROP2 = 6,0,8,0 i: ; ! pete ysne options (use of this field discouraged 
3; we ' “due to REA and RRL being in a different byte) 
; $086 4 macro RABSB_ROPS = 7,0,8,0 %; ! terminal read options 
; 3939 0 macro RABSL_STS = 8,0,32.0 2; ! status 
; 3940 0 macro RABSR_STV_OVERLAY = 12,0,32,0 2%: 
s 2941 @ macro RABSL_STV = 12,0,32,0 4; status value | 
i 39%4e 0 macro RABSR-STV FIELDS = {2,0,32,0 &; | 
; 3943 0 macro sre he = 12,0,16,0 &; ! low word of stv 
; 3944 0 macro RABSW_STV2 = 14,0,16,0 2; ! high word of stv 
> 3945 0 macro RABSR-RFA_OVERLAY = 16,0.0,0 %; 
; 3946 0 ABSW-RFA = 16,0,0,0 2; 
: 3947 0 Literal RABSS RFA = 6; ! record's file address 
> 3948 0 macro RABSR_RFA FIELDS = 16,0,0,0 %; 
: 3949 0 macro RABSL_RFAO = 16,0,32,0 &; | 
s 3950 @ macro RApee RFA4 = 20,0,16,0 2; 
; 3951 0 ! to the ffa field to be a move quad, overwriting 
: Pm ! this reserved word) 
3 seer 8 macro RABSL _CTX = 24,0,32,0 %; ! user context | 
3 3933 ® macro RABSB_RAC = 30,0,8,0 2: ! record access 
>; 3956 0 macro RAB$B_TMO = 31,0,8,0 2%; ! time-out period 
: $320 0 macro RAB$W_USZ = 2.0.16.0 i; ! user buffer size 
3 958 0 macro RABSW_RSZ = 34,0,16,0 2; ! record buffer size 
: 3959 0 macro RABSL_UBF = 36,0,32,0 2; ! user buffer address 
; $000 0 macro RABSL_RBF = 12-8 +35 -8 z; : record buffer address 
3 96: 0 macro RABSL_RHB = 44,0,52,0 1%; ! record header buffer addr 
; 3968 0 macro RABSR_KBF_OVERLAY = 48,0,32,0 %; | 
; 963 0 macro RABSL_KBF = 28-0.36-0 i; ! key buffer address 
: 564 0 macro RABSL_PBF = 48,0, 9 i; ! prompt buffer addr | 
: 3965 0 macro RABSR_KSZ_OVERLAY ="52,0,8.0 %; | 
; 966 0 macro RAB$B_KSZ = 52,0,8.0 2; ! key buffer size 
: 3967 0 macro RABS$B_PSZ = 52,0,8.0 2: ! prompt buffer size 
; 968 0 macro RABSB_KRF = 53,0,8,0 2; : ey of reference 
g 969 8 macro RABSB_MBF = 2-8. ol Be : ti-buffer count 
: 970 macro RABSB_MBC = 55,0,8,0 2; ! multi-block count 
: 971 8 macro RABSRBKT OVERLAY = 56,0,52,0 2; 
: are macro RABSL_BKT = 6.0. 38-8 4; ' bucket hash code, vbn, or rrn 
; 3973 0 macro RABSL_DCT = 56,0,52,0 2; ! duplicates count on key accessed on alternate key 
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macro RABSL_FAB = $0.8 36-8 %; ! related fab for connect 
macro RABSL_XAB = 0 2; ! \XAB address 
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name block field definitions 


the nam block is used to communicate optional 
filename-related information 


eral NAMSC_BID = 23 ! code for nam block 
eral NAMSC_MAXRSS = 255: ! maximum resultant name string size (network) 
eral NAMSC_MA a yee L = 255; ! maximum resultant name string size (local) 
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eral NAMS$ S$ = 0; ! Unknown file system for remote file access or 
not applicable for local ‘ile access or 
not Rani} for task-to-task spares ten 


: ' RMS=-20 


2; 


i TOPS-20 file system 
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lit 
Li 
L 
L 
L 
' 
Lite RMS-32 subset (e.g., VAXELAN) 
; the following 3 fields must not be rearranged relative to each other 
literal NAMSC_DVI = 16; ! length of dvi field 
' 
' 
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the location of the following fields must not 
be NAMEN Ft due to = commonality with the fib 
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teral NARSA-SRCHNMF = ibmsee 


teral NAMSK-BLN_V2 = ' Version 2 name block Length 
= sei ! Version 2 name block Length 
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; 4031 8 Literal NAMSM_PPF = 633363 H 
: 40 é Literal NAMSM-NODE = 131072; | : 
: 4033 0 Literal NAM$M-QUOTED = 26144 ; 
; 4034 Literal NAMSM_GRP_MBR = 4286; ; 
; 4035 Literal NAMSM-WILD_DIR = 1048576 : 
; 4036 Literal NAMSM-DIR_CVLS = 1468006) ; 
: 037 Literal NAMSM_WILD_UFD = 19 1$i : 
: 4038 Literal NAMSM“WILD-SFD1 = 33544 2; | ; 
; 4039 0 Literal eet A ES = 6 1986s | : 
: 4040 0 Literal NAMSM_WILD-SFD3 = 13421 gb: | : 
> 4041 Literal NAMSM_WILD_SFD4 = g985338 6; | : 
> 404 Literal NAMSM_WILD_SFDS = AALS 3 
: 404 literal SH~WILD"SFDG = 10 Pais i; ; 
i 4066 9 Literal NAMSMAWILD-SFD? = -2147485648; | ; 
>; 4045 0 Literal NAMSM_WILD_GRP = 19 77216; é 
; 4046 0 Literal NAMSM_WILD MBR = 35554432; ; . 
; 40467 0 Literal NAMSK_BLN_DIRWC = 96; ! Not documented optional Length ; 
>; 4048 0 Literal NAMSC_BLN_DIRWC = 96; ! Not documented Sptrenss Length | : 
; 4049 0 Literal NAMS$K_BLN = 96; ! Name block Lengt 3 
; 4050 0 Literal NAMSC_BLN = 96; ! Name block Length : 
> 4051 0 Literal NAMSS_NAMDEF = 96; ; : 
; 4052 0 macro NAM$B_BID = 0,0,8,0 %; ! block id : 
; 4053 0 macro NAM$B_BLN = 1,0,8,0 %; ! block Length ; 
3 4054 0 V EbFe tee Tee ese esse eeee ; 
3 ret $4 4 the following 3 fields must not be rearranged relative to each other : 
; 4057 0 macro NAM$B_RSS = $°0-8.0 %; ! resultant string area size 5 
; 6058 0 macro NAM$B_RSL = 3,0,8,0 %; ! resultant string Length 3 
; tbep 8 macro NAMSL_RSA = 4:0.32,0 &:; ! resultant string area address : 
; 4061 0 macro NAMSR_NOP_OVERLAY = 8,0,8,0 2%; . F 
: 4062 0 macro NAM$B_NOP = 8,0,8,0 %; ! Name options : 
; 4063 0 macro NAMSR_NOP_BITS = $,0,8,0 %; . : 
; 4064 0 macro NAM$V_PWD = 8,0,1 6 &; !' Return password if present in madespes string and any 3 
; 4065 0 macro NAM$V_FILL_1 = 8.1.1.6 %; ! unused. (used to be undocumented ROD) $ 
; 46066 0 macro NAM$V_FILL 2 = §-¢-1-8 %; ! unused. (used to be undocumented SOD) 3 
: 4067 0 macro NAM$V_SYNCAK = 8,3,1,0 %: ! Only do syntax check on $parse operation $ 
; 4068 0 macro NAMS$V“NOCONCEAL = 8,4,1,0 %; ! Do not conceal device/root directory : 
; 4069 0 macro NAMSV_SLPARSE = 8,5,1,0 %; ! Parse search List (not documented) -- used by BACKUP. : 
: 4070 0 macro NAM$V_SRCHXABS = 6.4,1,0 5; ! Fill in attached XABS on $SEARCH operations over the 3 
; 4071 0 :  metwork (not documented) -- used by directory. |. ; 
; 4072 0 ! other task-specific data of the form /netacp_data $ 
; 4073 0 ; (default is to mask out password from expanded and : 
:; 4074 QO : resultant name strings and to create a logical name 3 
; 4075 0 ! whose equivalence string is the unaltered nodespec) : 
:; 4076 0 macro NAM$B_RFS = 9,0,8,0 2%; ! Remote file system type (currently not documented) 3 
; 4077 0 ! Note: This field is reserved for use by Digital f 3 
; 4078 O macro NAM$B_ESS = 10,0,8,0 2%; ! espanded string area size 3 
: 4079 0 macro NAM$B_ESL = 13.0.8 . ! expanded string length 3 
3 ree macro NAMSL_ESA = 12,0, 2,0 &; ! expanded string area address | ; 
: 4082 0 macro NAMSL_RLF = 16,0,32,0 %; ! related file nam block addr | ; 
: 408 8 macro NAMST-DVI = 20,0,0,0 2; si : 
: ©4084 Literal NAMSS DvI = 16: ! device id ; 
>: 4085 0 macro Wats ETD OVERLAY = 36,0,0,0 2; 3 
; ©6408 8 macro NAM$W FID = 36,0,0,0 %; : : 
: 408 Literal NAMSS_FID = 6; ! file id : 
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; 6088 8 macro NAMSR_FID_FIELDS = 36 9.8.0 %; ; 
: 4089 macro NAM$W-FID-NUM = 36. 16,0 °%; ! file number ; 
; 4090 0 macro NAM$W_FID_SEQ = 38,0,16,0 2%; ! sequence number 3 
: 4091 0 macro NAMSR_FID-RVN_OVERLAY = 40,0,16,0 &; ; 
5 2 F macro NAM$W_FID_RVN = 40,0,16,0 4; relative volume number ; 
: 4093 0 macro NAMSR—F ID-RVN_FIELDS = 40,0,16,0 %; | ; 
; 4094 0 macro NAM$SB-FID-RVN-= 40,0,8,0 {; i alternate format RVN ; 
; 4095 0 macro NAMSB_FID_NMX = 41,0,8,0 2%; ! alternate format file number extension H 
; 4096 0 macro NAMSR-DID-OVERLAY = 42°0,0.0 %; ; 
; 4097 0 acro NAM$W DID = 42,0,0,0 %; . ; 
:; 4098 0 Literal NAMSS DID = 6; ! directory id : 
: 4099 0 macro NAMSR_DID_FIELDS = 42,0,0,0 %: | : 
: 4100 macro NAMSW-DID-NUM = 42,0,16,0 %; ! file number 3 
; 6101 © macro NAM$W_DID_SEQ = 44,0,16,0 2%; ! sequence number ; 
: 410¢ 0 macro NAMS$R~DID-RVN_OVERLAY = 46,0,16.0 %; ; 
>; 4103 QO macro NAM$W_DID_RVN = 46,0,16,0 £; ! relative volume number : 
: 4104 0 macro NAMSR_DID-RVN_FIELDS = 46,0,16,0 %; | ; 
: 4105 0 macro NAMSB-DID"RVN-= 46,0,8,0 &; alternate format RVN 3 
; 4106 0 macro NAM$B_DID_NMX = 47,0,8,0 2; ! alternate format file number extension 3 
: 4107 0 macro NAMSR-WCC_OVERLAY = 48°0,32,0 %; | ; 
: $108 O macro NAMSL_WCC = 48,0,32,0 4: ! wild card context : 
; 4109 0 — macro NAMSR-WCC_BITS = 48,0,32,0 X; | ; 
; 46110 0 macro NAM$V_IFI = 48,16,1,0 %; ! the first word contains an IFI : 
s 46111 @ macro NAMSV_SRCHNMF = 48,30,1,0 %; ! no-more-files has been encountered on a search | : 
3 aR 0 macro NAMSV-SVCTX = 48,31,1,0 %; ! save context across search calls : 
> 4113 0 macro NAM$R~FNB_OVERLAY_= 52,0,32,0 %; | 3 
:; 4114 0 macro NAM$L-FNB = 52,0,32,0 &: ! file name status bits : 
: 4115 0 — macro NAMSR-FNB_BITSO = 52,0,24,0 %; iis : 
; 4116 0 macro NAM$SV_EXP_VER = a 0,1,0 &; ! version was explicit : 
; eI, @ macro NAMSV_EXP_TYPE = 1,1,0 {; ' type was explicit F 
; 4118 0 macro NAMSV_EXP"NAME = 5 -10 %; ! name was explicit : 
>; 4119 0 macro NAMSV_WILD_VER = 52,5,1,0 %; ! version contained a wild card | ; 
: 4120 0 macro NAMSV_WILD_TYPE = 32.4.1.0 i; ! type contained a wild card 3 
; 4121 0 macro NAMSV_WILD NAME = 52,5,1,0 %; ! mame contained a wild card | : 
; 4122 0 macro NAM$V_EXP_BIR = 52,6,1,0 2%: ' directory was explicit ‘ : 
: 6123 0 macro NAM$V_EXP-DEV = 52,7,1,0 %; ! device was explicit 3 
>: 46126 0 macro NAMS$V_WILDCARD = §5.8,1,0 &: ! filename string included a wild card : 
: 6125 0 macro NAMS$V_SEARCH_LIST = 5 .11,1,0 % § search List present 3 
; 4126 0 macro NAM$V_CNCL_DEV = 52,1 11.0 4: ! concealed device present : 
s 6127 9 macro NAM$V_ROOT DIR = 52,13,1,0 2%; ! root directory present ; F 
>; 4128 0 macro NAM$V_LOWVER = 52 141.0%: ! lower numbered version(s) of file exist(s) : 
> 4129 0 macro NAMSV-HIGHVER = 52,15,1,0 &; i higher " es | ; 
; 4130 0 macro NAMSV~PPF = 52,16,1,0 2: | process-permanent file referenced indirectly : 
s 131 0 macro NAM$V_NODE = 52,17 1,0 4; ! filename specification included a nodename : 
: 4132 0 macro NAM$V_QUOTED = 5 {8°1,0'%; ! filename spec included a quoted string ; 
; 4133 0 macro NAM$V_GRP_MBR = : 19.1.0 &: ! directory spec was of aeyae format $ 
; 64134 0 macro NAMSV_WILB_DIR = 2,20.1.0 &: ! directory spec included a wild card : 
> 4135 0 macro NAMSV-DIR_CVLS = 52,21,3,0 2%; . 3 
; $138 8 Literal NAMSS_DIR_LVLS = 3; ! number of directory levels (0=ufd only) : 
; 4138 O ! (inclusive or of other ul l¢_carg bits) é 
s 6139 0 macro NAM$R_FNB_BITS1 = 52,0,32,0 %; ; . - 
: 4140 0 macro NAM$V_WILD_UFD = 5g 24°1,0 %: ! ufd included a wild card ; 
> 4141 0 macro NAM$V-WILD-SFD1 = 52,25,1,0 &: | sfd1 included a wild card ; 
; cise 0 macro ane A He AL = 52, $.1.8 z; ' aide included a wild card : 
; 4143 0 macro NAM$V_WILD_SFD35 = 52,27,1,0 2; ! sfd35 included a wild card 3 
>; 4144 0 macro NAM$V_WILD_SFD4 = 52,28,1,0 2%; ! sfd4 included a wild card : 


macro NAMSV_WILD_SFDS = 52,29,1,0 2%; 
macro NAMSV WILD SDS = 52,30,1,0 &; 
macro NAMSV_WILD-SFD7 = 52,31 }. i; 
macro NAMS$R_FNB_BITS2 = 0,3 z; 
macro NAMSV-WILD_GRP = 5 $441.6 %; 
macro NAMSV = WILDOMBR = 52,25,1,0 %; 


i tortor. = 40 byte extension) 


Extend the NAM block by 40 bytes. 


macro NAM$B av iy = 53°6 0 " 0 yi 
macro NAM$B_DEV = fy) 

macro NAM$B DIR = 38.0 

macro NAM$B RARE = 59 

macro ates = 6 
macro NAM$B_VER = 61 
macro NAM$L NODE = 6 
macro NAM$L_DEV = 68 
macro NAM$L_DIR = 72 
macro NAMSL_NAME 7 
macro NAMSL_TYPE = 8 
macro NAMSL_VER = 84 
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sfdS included a wild card 


sfd6 included a wild card 
sfd7 included a wild card 


group contained a wild card 
member contained a wild card 
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Nodespec Length 
Device ange 

Directory length 
Filename Length 
Filetype length 
Version number Length 
Nodespec address 
Device address 
Directory address 
Filename address 
Filetype address 
Version number address 
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tee MODULE SXABDEF *** 


definitions for all xabs | 
$xabdef 


the first four fields are —s in common between all xabs 
and hence are defined only onc 
(the only exception is that the spare word may be used by some xabs) 


literal XABSS_XABDEF 
macro XAB D 
aeere XABSB~ -BL 7 


XABSL 
i uITH POSSTBLE 
macro XABSW_RVN 


ee ee ee ee ee 


' yxab id code | 
! block length 
' yxab chain Link 


09 09 09 09 09 09 SI NII SI SII SSOP AA AAA AAA IIIT 


So 


~< (Wooo 


C200 0° 
3 
cr) 
oO 
be | 
is) 
5 
ad 
i 
S020) pny 
o< -o 
2 ae ad Sm 
eSu'oumn uu 
mu _ 
ubowe TW ie © & 
we Ormocr COVS}OO 
~— Oe = Y- OP: —t 2 = I 
& 


3 
@ 
o 
7 
°o 
= 
2s. 
i” ont 
305 
o 
~ 
a 

Te ceed 


oo 


noo me > 


macro XABSL— -Rb10 
COMMON AMONG DAT 


GD 
literot XABSS XABDEF 
macro XAB$B_B 
iiteral RABSC “CXT “$4 


pete MODULE SXABFHCDEF *** 
' +4 
i 


file header cherectertetics xab definitions 


$xabfhcde 
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5 ! COMMON TO FHC AND ALQ XABS | | 
' RMS Context Extraction version 1 
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: 4 o¢ 0 | ¢¢44¢¢e0ne® 

; 4203 0 ! the fields of this xab cannot be rearranged since 

; ? be 8 they correspond to an on-disk structure 

. 6 88 8 literal XABSC_FHC = 29; ! yxabfhe id code 

: 420 Literal XABSK_FHCLEN = 44; ' Length of xabfhe 

; 208 0 Literal XABSC_FHCLEN = 44; ! Length of xabfhc 

; 4209 0 Literal XABSS_XABFHCDEF = 44; 
: 4210 0 ! THESE 4 FIECDS ARE COMMON TO ALL XABS AND | 
s $6211 © i HAVE BEEN DEFINED BY SXABDEF | 
3 tsi¢ 0 eecre tte aro . §-0 8.0 a: record vorees on and file org 
3 ; ! record attri 

3 rh : macro XABSW_LRL = 16-6°48.0 %; ! longest pocore’ : ‘Length 

> 4215 0 macro XABSR_HBK_OVERLAY = 12,0,32,0 %; | 
; 4216 0 macro XABSL_HBK = 12,0,32,0 £; ! hi vbn allocated 

: 6217 QO ' “(n.b. reversed on disk!) 

: 4218 0 macro XABSR_HBK FIELDS = 12,0,32.0 %; 
; 4219 0 macro XABSW-HBKO = 12,0,16.0 &; | 
>; 4220 0 macro XABSW HBK2 = 14,0,16,0 2%: | 
; 4221 0 macro XAB$R-EBK_OVERLAY = 16,0,32,0 %; 
>; 4222 0 macro XABSL_EBK~= 16,0,32,0 &; ! eof vbn 
>; 4223 0 ! (n.b. reversed on’ diskS 
>; 4226 0 macro XAB$R -EBK_FIELDS = 16,0,32,0 2%; 

: 4225 0 macro XABSW-EBKO = 16,0,16,0 &; 
>; 4226 0 macro XABSW_EBK2 = 18,0,16,0 %; 
>; 227 0 macro XABSW_FFB = 20 6.16.6 2; ! first free byte in eof block 
>; 4228 0 | “defined above in $xabdef, since it is shared 
$ $563 0 ! by the all xab) 
>; 4230 0 macro XAB$B_HSZ = 23,0,8,0 2%; ! header size for vfc 
; 4231 0 macro XABSW_MRZ = 24,0,16,0 &: ! max record siz 
; tS3§ 8 macro XABSU-Goe = $6-8 610-8 a; default extend. quantity | 
: macro = 28,0,16,0 2; ! global buffer count 

3 tSee 8 macro XABSW VERLIMIT = 38.0,16,0 %; ! version Limit for file. | 
: S37) @ | sooo | 
; $s38 3 macro XABSL. SBN = 40,0,32,0 2%; ! starting lbn if contiguous | 
; 4238 0 !ee® MODULE SXABALLDEF *** | 
:; 4239 0 | <= | 
; 4240 0 | ++ 
>; $2461 0 i | 
>: 42462 0 i allocation xab definitions 
; 9 xabal def | 
; ea 

: 0 i ¢eeeeeneee 

: 0 i the fields thru bkz cannot be rearranged due to 

: 0 i their commonalit with fa 
; 0 literal XABSC_ALL = 20; ! yxabail id code 
: 0 Literal XABSM_HRD = 1; 
3 0 Literal XABSM_ONC = $i 
; 0 Literal XABSM_CBT = 32; | 
: 0 Literal XABSM~CTG = 128; 

; 0 Literal XABSC_ANY = 0; ! any allocation o.k. 

; 0 Literal XABSC_CYL = 1; : cylinder boundary 
3 0 literal XABSC_LBN = ¢! : locate at specified Lbn 
s 0 Literal XABSC_VBN = 3; ' allocate near specified vbn 

: 0 Literal XABSC_RFI = 4; ! allocate near related file 
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>: 6259 Literal XABSK_ALLLEN = 3: ! Length of xaball 3 
>; 260 Literal XABSC_ALLLEN = 32; ! Length of xabail 3 
>; 4261 Literal XABSS_XABALLDEF = 32; 5 
oe 6¢ ' THESE 4 FIECDS ARE COMMON TO ALL XABS AND ; 
>; 426 ! HAVE BEEN DEFINED BY Sr : 
>; 4266 0 macro XAB ~A OE OVERLAY = 8,0,8,0 %; ; 
>; 4265 0 macro XAB$B_AOP = 8,0 %; ! allocation options 3 
>; 4266 0 macro XABSR-AOP_BITS = §.0,8.0 %; ; 
; 6267 QO macro XABSV_HRD = 8.0.1.6 &; ! fail if requested alignment impossible 3 
>; 4268 0 macro XABSV_ONC = odo) 68 %; ! locate allocated space within a cylinder 3 
>; 6269 0 macro XAB$V_CBT = 8,5,1,0 2; ! contiguous alllocation, best try 3 
; 4270 0 macro XABSV_CTG = 8,7,1,0 2%; ! contiguous allocation 5 
>; 4271 QO macro XABS$B_ALN = 9,0,8,0 2%; ! alignment type ; 
3; § ie 0 macro XABSW-VOL = 10,6,16,0 x; _. | relative volume no. for allocation ; 
>; 4273 0 ! (not sopticable if aln’= vbn or rfi) 3 
>; 4274 0 macro XABSL_LOC = 12-0 .36-0 %; ! allocation location 5 
>; 4275 0 macro XABSL_ALQ = 16,0,32,0 2%; ! allocation quantity 3 
>; 4276 0 macro XABSW_DEQ = 20,0,16,0 %; ! default allocation quantity $ 
; 4277 0 ' “defined above in $xabdef,since it is shared by the fhc 3 
>; 4278 0 ! xab and has the same offset, of course) : 
3 4279 0 | encce reere $ 
>; 4280 0 macro XABS$B_AID = 23,0,8,0 %; ! area id number 3 
>; 4281 0 macro XABSR_RFI_OVERLAY = 24,0,0,0 2%; : 
; 6282 0 macro XABSW_RFI = 24,0,0,0 2; 3 
; 4283 0 Literal XABSS RFI = 6; ! related file id ; 
> 42846 0 macro XABSR_RFI_FIELDS = 24,0,0,0 %; 3 
; 4285 0 macro XABSW-RFIO = 24,0,16,0 &; ! file number | ; 
>; 4286 0 macro XABSW_RFI2 = 26,0,16,0 2; ' seq number ; 
: rs 4 8 macro XABSW_RFI4 = 28,0,16,0 %; ! rev number : 
: 4289 0 — !#® MODULE SXABDATDEF *#« | : 
>; 4290 0 ! oo 3 
>; 4291 0 ; 2 : 
: 4292 0 : : 
; 4293 0 : date/time xab definitions 3 
; 4294 0 : $xabdatdef 3 
; 4295 0 a ; | : 
> 4296 0 Literal XABSC_DAT = 18; ! xabdat id code ; 
; 4297 0 Literal XABSK~DATLEN_V2 = 36; ! Version 2 XABDAT Length : 
; 6298 0 Literal XABSC_DATLEN_V2 = 36; ! Version 2 XABDAT Length : 
> 4299 0 Literal XABSK~DATLEN7= 44; i Length of XABDAT | : 
; 300 0 Literal XABSC_DATLEN = 44; ! Length of XABDAT : 
; 4301 0 Literal XABSS_XABDATDEF = 44; : 
; 4302 0 ! THESE 4 FIECDS ARE COMMON TO ALL XABS AND ; 
; 4305 0 ! HAVE BEEN DEFINED BY SXABDEF : 
: 4304 0 macro XABSR_CDT_OVERLAY = 20,0,0,0 2%; : 
: 4305 0 macro XAB$Q CDT = 20,0,0,0 2; : ; 3 
; 4306 0 Literal XABSS_CoT = &; ' creation date & time : 
>: 4307 0 macro XABSR_CDT_FIELDS = 30 0,0,0 %; | ; 
: 4308 0 macro XABSL-CDTO = 20,0,32,0 &:; ; 
: 4309 0 macro XABSL_CDT4 = 24,0,32,1 2: 3 
: 4310 0 macro XAB$R-EDT_OVERLAY = 28,0,0,0 &; ; 
3; 4311 0 macro XAB$Q_EDT = 28,0,0,0 2; oe ; : 
3 $36 0 literal XABSS EDT = 8; ! expiration date & time 3 
>; 43135 0 macro XABSR_EDT FIELDS = 28,0,0,0 2; $ 
:; 4314 0 macro XAB$L_EDTO = §-0.3 0 &; ‘ 
; 4315 0 macro XABSL_EDT4 = 32,0,32,1 2; : 
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teral XABSK_ “AOTLEN = = 28; ! length of rdt xab 


i 

i | 
iteral XABSC_R ! Length of rdt xab 
iteral XABSS_Xx 


BEND 
THESE 4 hastiny ARE ae: "io ALL XABS AND 
i HAVE BEEN DEFINED BY $XABDE 


‘eee MODULE SXABPRODEF *** | 


431 macro XABSR -BoT =0V RLAY = 36,0,0,0 %; 
431 macro XAB$Q°B 6 0, 0,0 %; 
431 Literal cABSe apt = ! backup date and time 
431 macro XAB$R_BDT FIELDS = 6,0,0,0 %; 
macro XABSL_BDTO = 6 4:° 
macro XABSL_BDT4 = 40, 8. "1%: 
: a MODULE SXABRDTDEF *** 
i +4 
2 ! ; 
§ ! revision date/time xab definitions 
! Te | pein 
¢ teral XABSC_R ' yxabrdt id code 
3 L 
; 
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protection xab field definitions 
xabprode 


= 19; ! yxabpro id code 
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literal Xx 
literal XABSS_ XABPR 
macro XABSR_XABPRODE 
“NO deny read access 
deny write access 
deny execution access 
deny delete access 


= 8 = Ome eee 
ess =P 
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V3a xabpro length 
V3a xabpro Length 
xabpro length 
xabpro length 
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Literal XAB$S_XABPRO 
! THESE 4 Mr iecos AR 
! HAVE BEEN per ined athe 
macro XABS$R_P 
macro XABSW_ PRO” = 
macro XABS$R_P — BIT te 
"Se 
= 


88; 
N 10 ALL XABS AND 


XAB 

= 8,0,16,0 2%; 

{:° ! protection mask 
ish 0 %; 


4,0 %; 


NL 
N- 
literal Bet 
E 


RRO 
Wr —O0Oon 


Ce J oe J ee | we | we | we | we we | we ww | we ew we ww ew ww nn ala lala lolaloleleleoleleleolelelolololelolelelolelolololololol a) 


macro XAB$V_S 


literal WABSS ! system 
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Literal xABSS_G a 


i] 
' group 
macro XABS$V_WCD 


Sree ae ee ae a ae ae ee Eas 2 
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: tera = wor ; 
4373 0 li L XABSS_WLD = 4; ' ld 
>; 6374 8 macro XAB$B_MTACC = 16,0,8,0 %; | Magtape access control char. : 
: 4375 macro XABSR-PROT_OPT_OVERLAY = 11,0,8,0 4; ; 
: 4376 0 macro XABSB_PROT_OPT = 11,0,8,0 %; ! XABPRO options field : 
: 4377 0 macro KABS$R~PROT-OPT FIELDS =11,0,8,0 %; 3 
; 4378 O macro XABSV_PROPAGATE = 11 9-1-9 i; Propagate security attributes on SENTER and $RENAME ; 
: 4379 0 macro XABSR_UIC_OVERLAY = {2,0,32,6 x; ; 
; 4380 0 macro XABSL-UIC~= 12,0,32,0 &; uic code ; 
: 6381 0 macro XABSR— “ule -FIELbS = {2,0,32.0 %; ; 
>; 4382 0 macro XABSW_MBM = 12,0,16.0 2%; ag code ; 
>; 6383 0 macro XAB$W_GRP = 14,0,16,0 %; Nag BO code ; 
: 4384 0 macro XABSR-PROT_MODE_OVERLAY = 16,0,0, 0’ 1:71 "Rued/mode protection for file ; 
: 4385 0 XABS$Q geno! BrOte = 16 0,0,0 %; “ 
: 386 0 literal XABSS_P MODE = 6; ! eventually may be a quadword 3 
; 4387 0 macro KABSR PROT MODE. FIELDS = 16,0,8,0 &; | 3 
>: 4388 0 macro XAB$B_PROT MODE = 16 9-8-8 4; : but currently only a a byte 3 
>; 4389 0 macro XABSL_ACLBOF = 4,0,32.0 2; ! address of user's ACL buffer : 
; 4390 0 macro XABSW_ACLSIZ = 28,0,16,0 2%; ! size of user's ACL buffer : 
>; 4391 0 macro XABSW_ACLLEN = 30,0,16,0 %; ' return Length of entire ACL : 
>; 4392 0 macro XABSL_ACLCTX = 32,0,32,0 2%; ' ACL context field $ 
; eter . macro XABSL_ACLSTS = 36,0,32,0 %; ' ACL return err status | : 
: 44 3 pene MODULE SXABTRMDEF *** | : 
>; 4397 0 ! ++ | : 
; 4398 0 i : 
>; 4399 0 ! terminal control xab field definitions | F 
3 rrr 4 $xabtrmdef ; 
: 4402 0 ' 3 
; 4403 0 ' : 
: 4404 0 literal XABSC_TRM = 31; ' XABTRM ID CODE Fy 
; 4405 0 Literal XABSK_TRMLEN = 36; ! Length of xab of type terminal control : 
>; 44606 0 Literal XABSC_TRMLEN = 36; ! Length of xab of type terminal control : 
: 4407 0 Literal XAB$S_XABTRMDEF = 36; : 
: 4408 0 ' THESE 4 FIECDS ARE COMMON TO ALL XABS AND : 
; 4409 0 : HAVE BEEN DEFINED BY SXABDEF : F 
> 4410 0 macro XABSi_ITMLST = 8,0,32.0 2%; ! jtem List address : 
: $411 0 macro XABSUCITMLST -LEN’="120,16,0 %; | item list Length | 
i 4413 0 tes* MODULE SXABSUMDEF *** | ; 
: 4415 0 : o | $ 
> 4416 0 i tags ; 
; 4417 0 i summary xab field definitions F 
5 ais 4 $xabsumdef : 
; 4420 QO i : 
: rri} 0 literal XABSC SUM = 22; ' yxabsum id code : 
: «644 ; 0 Literal XABSK_SUMLEN = 133 ! xabsum Length : 
; 4423 0 Literal XABSC_SUMLEN = 12; ! xabsum Length : 
3; 4424 0 Lite ral XABSS _XABSUMDEF = 12; 3 
> 4425 0 THESE 4 FIECDS ARE COMMON TO ALL XABS AND : 
3; 4426 0 i HAVE BEEN DEFINED BY $XABCEF ; 
: 4427 0 macro XABSB_NOA = 8,0,8,0 2; ! number of defineu areas for index file : 
; 4628 0 macro XAB$B_NOK = 9,0,8,0 2; ' number of defined keys for index file : 
; 4429 0 macro XABSW_PVN = 16,6,16,0 2; ! prologue version number (relative and index files) : 
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: G03) 9 eee MODULE SKABKEYDEF #0 
: bb i = | 
s 44 : § : ++ | ; 
: te g ° key definition xab field definitions | 
> 644636 0 xabkeydef | 
eek at 
; literal XABSC_KEY = 21; ! xabkey id code | 
: 2006 9 Literal XABSAcbUP = 1: | : 
> 6461 Literal XABSM_CHG = 2; 
G44 6 Literal XABSM-NUL = 4; | 
: 4443 0 Literal XABSM_IDX_NCMPR = 8 | : 
: 4444 0 Literal XABSM_KEY-NCMPR = 64: 
; 4445 0 Literal XABSMIDA “NCMPR = 126; ers | 
40tF 0 itera RABSECING = 4; i signed 15 bit integer (2 bytes) | ; 
: “BN2 = 2: te binar ’ 
: tee ; Literat XABSC~ING : :: # hed 1 bit integer (4 bytes) | ; 
: He 8 titerel Rages pe = 33 i ed decimal (1-16 bytes) | 
: tee2 hak XABS CW INS z : , Slaned 63 bit integer (4 bytes) | 
: rae: 0 literal XABSC_ = 7: ' 8 byte binary | 
: ieee 0 Literal XABSC_MAXDTP = 7; ' max. legal data type | ; 
; 4455 0 Literal XABSK-KEYLEN_V2 = 64; p> O1g napsey tonech | 
: 4456 9 Literal XABSC_KEYLEN V2 = 64; old xabkey Leng | ; 
: 4658 9 Additions for prologue 3 files | 
° 1 = 3; ! Prologue version three : 
; tee 0 Literal KABSe~PRE? = 3: prologue corenie one | ; 
> 4462 0 Literal XABSC_PRG1 = 1; | Prologue vers | 
; Literal XABSK_KEYLEN = 76; ' yabkey Leng | 
; rh : Literal XABSC_KEYLEN = 76; : xabkey Length ; 
mc Rha er 
: l KEYDEF = 76; | 
: ret 9 1 These AP TECDS: ARE COMMON TO ALL XABS AND | ; 
> 4469 0 : HAVE BEEN DEFINED BY SXABDEF | 
4470 0 < | ; 
; f the key xab is such that it matchs as | ; 
: re 9 eeeaie te aeentetn the Layout of a key decriptor in the | : 
: 6473 0 ! index file prologue. this is so the contents may bp aoved | 
; roth : between the two structures as efficiently as possible. , | 
° : ; a level area number | : 
; 1079 9 aacre XABSB~LAN : $70/8.0 ti Lowest Le <ens sree number | : 
: 6678 0 macro XABSB_DAN = 10,0,8,0 4; i data level ar umb | 
: 4679 Q = macro XABSBULVL = 11,0.8,0 3: BS yl he ef ee pre 
ee BS maces ese bee 1870" $ %: i size of data buckets in virtual blocks : 
ere macro XABSL-RVB = 14.0.32,0. 4: i root bucket start vbn 
: 448 6 macro XAB$R~FLG_OVERLAY = 18,0,8,0 2; , lhl as 
: 6484 0 macro KABse FUG srteb ce te B; O% key option flag | 
acro = eal od eVeVe ° ® : 

: teBe ; macro XABS$V~DUP™ = 18,0.1,0 %; ! duplicate key values allowed 
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5 ; “-key field may change on update ; 
> 4487 macro XABSV_CHG = 18,1,1,0 3; ; alt key only -- Pip aah A cae 
; rr aecre KARE IDK ALAR a %; tndicete index recerds for given key are not  eaechoranen : 
1050 8 necro XABSV-KEY-NCMPR = 18.6,1.0 %: ! indicates key is not compressed in data recor 
; ree: macro XABSV-DASCRCRER . : 97459 i ' data record is not compressed 
: 449 macro XAB$B_DTP™= 19,0,8,0 2; ! key field data type 
> 6494 0 macro XABSB-NSG = 20,0,8.0 2: i number of key segments | 
> 6495 0 macro XAB$B_NUL = 21,0, % q; ! nul ey! character | ; 
: 4496 macro XABSB_TKS = 02,0,8,0 %; | total key field size (bytes) | 
> 4497 5 macro XABSB_REF = $°° 0 2; ! key of reference (O=prim key, | 
: £478 cle Daman : ' inimun record length to contain key field : 
: 4880 macro XABSUTIFL = £.0.16.9 ti i Index bucket fill size (bytes) ; 
: 4501 0 macro XABSW_DFL = erage ess q; ! data bucket fil size (bytes) 
: 450¢ 0 macro KABSR-POS OVERLAY =) 9.0.0.0 %; 
; teoe 9 Tieccal KABSS. POS = 46: ° ° ! key field record offset positions 
; 4505 0 macro XABSR_POS FIELDS = 30,0,0,0 2; : | 
: 6506 0 macro XAB$W_POSO = 30.0.16.6 i; ; segment 0 | 
: 4507 0 macro XAB$W_POS1 = 32,0,16,0 2: i segment 1 | 
: 6508 0 macro XABSW Pose = 34.0.16.0 %; i segment : | ; 
; 310 9 sacra Kassucpose = SecB1e-0 | Sedent g Bae | 
¢ 232 8 omBErS KABSucposs = 20°0716°0 4; i Segment 5 | 
: 4512 0 macro XAB$W-POS6 = 42,0,16.0 2%: i segment 6 | ; 
: 4318 0 macro XAB$W_POS7 = 44,0,16,0 2%; segment | 
; 4514 0 = macro KABSR-S1Z_OVERLAY = 46,0.0.0 ; | 
; ta16 4 Titerat KABSS $12 cx... * ! key field segment sizes | : 
> 46517 0 macro XABS$R_SIZ FIELDS = 46,0,0,0 2%: ' | 
; 4318 9 acre dassecei7) = 49°8:8°9 i Setent § ae 
(eee De: KABSB_S122 = 48:0°8:0 3: i Segnent 2 
> 4521 0 macro XAB$B_S123 = 49,0,8,0 &: i segment | ; 
£238 § | asere Kagseeize = Si-O-b°0 E: Leen’ Sar 
: 4386 9 macro KABSBS176 = 52°0-8.0 1: i Segment | 
3 $262 2 macro XAB$B_S1Z7 = 53,0,8,0 2; seg | 
: i i f the above fields are dictated by the key descriptor | 
: 1256 ahh wy tee oe the index file prologue. | 
; 6339 = : ! pointer to 32 character key name buffer | : 
: 4335 § aocre XABSt DVB = 3079°35°0 z i erst data bucket start vbn | : 
: $238 0 macro KABSR-TYP OVERLAY = 64.0.0.0 i; | 
: te32 Tikcral KABSS. TYP : ... e ! key field seament types | 3 
: 4535 0 macro XABSR_TYP FIELDS = 64,0.0,0 %; , | 
; 387 8 Baro Kapascrvel = 5:8:8°0 i Ssgeene { we: 
> = e ° e ° ° : 
HB) SS aeeE | Beg rey 
; «6 macro we = V0.8. : : | 
: 4 = 68,0,8,0 2: i segment 4 ; 
: tec9 9 macro XABSECTYPS = $3. . 5 a: + segment 5 | 
: 4542 macro XABSB-TYP6 = 70,0,8.0 2: | segnent $ | 
; 4543 : macro XABSB_TYP7 = 71,0,8,0 2; !  segmen 
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; $26¢ macro XABSB_PROLOG = 72,0,8,0 %; ! indicate prologue version desired (primary key only) | 
; 4946 teee MODULE SKABCXFDEF *#* | 
: 4548 8 i RMS Context XAB associated with the FAB 

> 64549 ' $xabcx fdef 

; 4550 0 : | 
; 4551 0 ’ | 
3 £226 0 literal XABSC_CXF = 32; ! YABCXF id code 
>; 4553 0 Literal XABSM_CXFRST = 1; 

; 45546 0 literal XABSK_ =tXELEN = 60; ! Length of xab type CXF 

: $222 8 Literal XABSC_CXFLEN = 60; ! Length of xab type CXF 

; 4556 Literal XABSS~ XABE KT DEF = 60; 

; t22f 8 UP TILL NO@ COMMON AMONG ALL XABS 

: 4559 0 i Following in common with the CXR block, too. 

: cee 8 ; Do not rane without changing both. 

: 4962 0 macro XABSL_CXFSTS = 5953959 i ! Status of the Last file operation. 

: 98 3 macro XABSL_CXFSTV = 2,0 3 ! Status Value of the Last file operation. | 
: 4565 0 Top four bits of the options longword are reserved for the XABCXR. These 

3 +288 8 bits describe the version of the key buffer. 

: 4568 0 macro XABSR_ CXECOP OVERLAY = 16,0,32.0 3; 

; 6569 0O macro XABSL_CX = 16,0,32.° a §;° ' Context Options. 

: 4570 0 macro XABSR-CKECOP. BITS = 14 ., .0 2; 

; 4571 0 macro MABSV_EXERST = 16,0.) {;° ! Restore file state - use context blk as input. 

: 4572 0 macro XABSL-CXFBKP = 20,0.3<.0 &:; i Bookkeeping bits 

s 6575 90 macro XABSW_CXFIFI = 24,0,16,0 2; ! Internal File Identifier 

; tere 8 macro XABSB_CXFVER = 26.0.8,0 %; ! prologue version num 

: £278 8 ; Up Till now in common with XABCXR, too. 

: 4578 0 i The following fields correspond to those in the FAB or IFB 

; 4579 0 ; They should not be rearranged as their order is assumed for 

; 4580 0 : purposes of eh large chunks of data rather than a byte 

3 $28! 8 or word at a time. Note: ASSUME is used in the actual code 

: 6583 0 macro XABSW_CXFDEQ = 32,0,1 ' Default extention quantity 

>; 4584 0 macro XAB$B_CXFFAC = 4.0.8 a6” A ' File access 

>; 4585 0 macro XABSB_CXFSHR = 5.0.8, 0 i; ! File Sharing 

> 4586 0 macro XABSW-CXFRTE = 36.0.16,0 &; i (Not used) 

3 rea 14 0 macro XABSB_CXFORG = 73-3-8,0) 6° ti ! file organization 

: 4588 8 macro XABSW_CXFGBC = 40,0, i; ! global buffer count 

3 $283 8 macro XAB$B_CXFRTV = 43-0. 1840 q; ! retrieval window 

; 4991 9 ‘es MODULE S$XABCXRDEF *#* 

; 1395 0 RMS Context XAB associated with the RAB | 
; 4594 0 i $xabcxrdef 
: $ane 0 
: 6459 6 Literal XABSC_CXR = 33; ! XABCXR id code | 
:; 4598 8 Literal XABSM_CXRRST = 1; 
3; 4599 literal XABSC_CXB_VER1 = 

: 4600 0 Literal XABSC_CXRBLEN = 513; ' Length of CXRBUF (bytes) 
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! ISAM files. 


4668 macro Aas cunrose = £5-0-32 68 a; ! Primary Positioning RFA 
macro = 48,0,16,0 2; 

4646 macro KABSL _CARCURO = $2:0°32:0 LE ! Current Positioning RFA 
macro = 56,0,16.0 2%; 

£oe8 macro KABSL _CARS1DO = re ere: LE ' SIDR positioning RFA 
macro = ; 

4650 macro XABSW_CXRCNT = 08,6 16.6 2; ! SIDR array count 

4651 macro XABSB_CXRKREF = 6.6. 0 2; ' Cur Key of Reference 

465 macro XAB$B_CXRKLEN = _71 oe Bi ' Length of key 

465 macro XABS$L_CXRBUF = 72,6,32.0 %: ! address of key buf 


ee MODULE $XABJNLDEF *** 


; 6601 0 Literal “ABSK_CXRLEN = Bi ' Length of XAB type CXR 

; 460 8 Literal RAB SC CAREER : ! Length of XAB type CXR 

3 460 Literal KASS” XABCXR 

; 4604 0 {UP TILL Now CORON’ AMONG ‘i XABS 

: 4606 0 : Following im common with the CXF 7 too. 

3 re e't4 8 : Do not rearrange without changing i 

: 6609 0 macro XABSL apmsTs = 8,0 6°35 Status of the Last record operation. 
>; 4610 Q macro XABSL_CXRSTV = #55 é, of Status Value of the last record operation. 
> 4611 0 macro XAB$R-CXRCOP_OVERLAY = 16 632.0 ; 

>; 4612 0 macro XABSL_CXRCOP’= 16,0, "16, b 1 Context Options. 

> 6613 0 macro KABSR-CXRCOP_BITS = 16 : 0 %; 

>; 4614 0 macro KABSV_CKRRST = 16,0,1,0 & ! Restore file/record state - use context blk as input. 
> 46615 0 macro XABSV CXRBVER = 16,28.4,0° 

> 4616 p Literal XABSS CXRBVER = 4; ! Version of Key buffer 

: 4617 macro Kasse CROKE. = 20,0,32,0 2%; ! poskkeop ing bits 

: 6618 0O macro XABSW_CXRISI = 24,0,16,0 %; ! Internal Record Identifier 

3 re 284 macro XABSB™ CXRVER = 6,0.8,0 % %; : prologue version num. 

: 4621 0 Up Till now in common with XABCXF, too. 

3 ree 0 ! 

: 46 0 : 

>; 4624 0 : The following elements are arranged such that large amounts of 

>; 4625 0 : data can be moved at a time rather than words or bytes. Do not 

3 +es8 8 } rearrange them without this consideration in mind. 

: re : 8 The following elements are stream dependent regardless of file org. 
: 4630 0 macro XABSB_CXRMBF = 35:6 0.8. 83 ! Multibuffer count 

; 4631 0O macro XAB$B_CXRMBC = a ! Multiblock count 

; +63 8 macro XABSW_CXRBFZ = 4:0" <° 0% ! sz in byte of CXRBUF 

: 4634 0 i The following elements are necessary for saving the NRP context for 
3 1032 . } Sequential and Relative files. 

: 4637 0 — macro XABSL_CXRVBN = 36,0,32,0 2: ! NRP VBN 

>; 4638 0 macro XAB$W_CXROFF = 40,0,16,0 2%; ! NRP offset in VBN 

: 46639 2 macro KABSW_FILL_8 = 42,0,16,0 2%; ! mbz - longword align 

: 4641 i The following elements are necessary for saving the NRP context for 
: 6 

; 0 

3 0 

: 0 

3 0 

3 0 

; 0 

oO 0 

; 6 

; 0 

5 0 
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> 4658 : Journal XAB definitions 

>; 6659 : xabjnidef 

: eet i | 
; £086 Q Literal XABSC_INL = 34; ! xabjnl id code 
>; 466 Literal XABSM_ONLY_RU = 1; 
> 4664 Literal XABSM_RU = 2; 
; 4665 Literal XABSM_BI = 4; 

> 4666 8 Literal XABSM_AI = 8; 

: 4667 Literal XABSM_AT = 16; | 
>; 4668 0 Literal XABSM_NEVER_RU = 32 é | 
> 4669 Literal XABSK_MAXJNCNAM = 16; ! max size of ascii string —— name | 
; 4670 Literal XABSC_MAXJNLNAM = 16; ! max size of ascii string journal name 
; 6671 0 Literal nese ALLEN = 60; | 
: 4672 0 Literal XABSC_JNLLEN crests | 
; 4673 0 Literal XABS$S_XABJN LDEF 
: 4674 0 1 THESE. & FIECDS ARE COMMON Fo ALL XABS AND 

; 6675 0 i HAVE BEEN DEFINED 7. $x “gay | 
>; 4676 0 macro XABSR_JOP_OVER ERAT, = 8.0,16,0 %; 
s err ® macro XABSW_JOP = 6.0 &:. ! journaling flags 
: 4678 0 macro XAB$R_JOP ee 2'3°0.8:0 x | 
; 4679 QO macro XAR$V_ONLY_RU = 8 6.1.6 x; ! Recovery-unit only access 
>; 4680 0 macro XAb$SV_RU = 8.1.1.0 &: : peeevets unit 
; 4681 0 macro XAB$V_BI = B-¢-1 0 2; ! Before Image 
: 4682 0 macro XABSV_Al = 8,3,1,0 2; ! After jnage | 
>; 4683 0 macro XABSV_AT = te | %; ! Audit Trail ‘ 

>; 4684 0 macro XABSV_NEVER_RU = 8,5,1,0 2; ! Never journal in Recovery-unit 
; 4685 0 macro XAB$B_BIS = 1¢-0.8.0 %; : I journal name buffer size 
; 6686 0 macro XAB$B_BIL = 13,0,8,0 %; ! BI journal name return size 
>; 4687 0 macro XABSL_BIA = 16,0,32,0 &; ! BI journal name buffer address 
: 4688 O macro XABSB-AIS = 20,0,8,0 %; ! Al journal name buffer size 
; 4689 0 macro XAB$B_AIL = 1.8.8 0 2; ! Al journal name return size | 
: 4690 0 macro XABSL_AIA = 24,0,32,0 &; i AI journal name buffer address | 
; 4691 0 macro XAB -ATs = 28,0.8,0 3; ! AT Journal name buffer size 
; 6692 0 macro XAB$B = 3-0" 0.8 0 o* ! AT journal name return size 

3 ret ty 8 macro XABSL_ “ATA = 2,0 ! AT journal name buffer address 

; 4695 0 ewe MODULE SFSCNDEF *** 

| Begs 

; 4698 0 : Descriptor codes for SYSSFILESCAN 

BBR 
; 6701 8 Literal FSCNSM_NODE = 1; 
: ote Literal FSCNSM_DEVICE = 2; 
; 4703 0 Literal FSCNSM_ROOT = 4; 
: 6704 0 Literal FSCNSM_DIRECTORY = 8; 
; 705 8 Literal FSCNSM_NAME = 18: | 
; £708 literal FSCNSM_TYPE = 32; 
: 4707 0 Literal FSCNSM_VERSION = 64; 

; 4708 Literal FSCNSS_FLDFLAGS = 1; 
: 6709 macro FSCNSV_NODE = 0,0,1,0 2%; ! Node name present 
; 4710 0 macro FSCNSV_DEVICE = 9-16) 6 z; ! Device name present 
: 4711 0 macro FSCNS$SV_ROOT = 0,2,1,0 %; ! Root directory present 

: 4712 0 macro FSCNSV~DIRECTORY = 6,3,1.0 2%; ! Directory present 

: 4713 0 macro FSCNSV_NAME = 0.4.1.0 £; ! File name present 

: 4714 0 macro FSCNSV_TYPE = 0,5,1,0 2; ! File type present 
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macro FSCNSV_VERSION = 0,6,1,0 %; } 
Literal FSCNS_FILESPEC = 1; ! 
Literal FSCNS_NODE = 2; : 
Literal FSCNS_DEVICE = 3; ' 
Literal FSCNS_ROOT = 4; : 
Literal FSCNS_DIRECTORY = 5; : 
Literal FSCNS_NAME = $: : 
Literal FSCNS_TYPE = 7; : 
Literal FSCNS_ VERSION = 8; : 
Literal FSCNSS_ITEM_LEN = 8; 

iteral FSCNSS-FSCNDEF = 8; 
macro FSCNSW_LENGTH = 0,0,16,0 %; 
macro FSCNSWIITEM_CODE = g-0.16.6 oe 
macro FSCNSL_ADDR = 4,0,32,0 %; ! 


poo MODULE SRMEDEF *** 
i rms escape definitions 


functions. 


should be exercised in their use. 


‘eee MODULE SPLGDEF *** 
Literal PLGSC_VER_NO = 1: 
Literal PLGSC"VER-IDX = 2; i 
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File version present 
complete filespec 
node:: fie 

evice: field 

root.] van 
directory] field 
name field 

.typ field. 

sversion field 


return Length word 
item code value | 
return Length pointer 


the following valves identify various requests for non-standard rms 
hey are currently input to the $modify function in the 
ctx field of the fab only if the esc bit is set in fop. incorrect. 
use of these capabilties could cause rms to fail, hence great caution 


change rfm, mrs, and fsz (if vfc) in ifab only 
enable echo of SYSSINPUT to SYSSOUTPUT 


ae eee 


SERCH LAAAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAAAARARAARAAARAAAEAAE 
RASH SKAAARAAAAAAAAAAAAAAAAAKAATAAAARAAAAATAATEAA AERA AAAAAAEAAAAAAAAAAARAAAAAAAAAAAAAAAAAATAAAAARAAAAAAAAAAAAAAAAAAAAE 


Created 15-SEP-1984 22:55:15 by VAX-11 SDL V2.0 


' 

i 

i 

i 

i 

i 

i 

i 

Literal RMESC_SETRFM = 1; ' 

Literal RMESC_PPFECHO = 2; i 

i (ARRSAALLASALASALLALALSALLESELEL ESE SE SESE SE EAR RELEASES E ER EAS EASES ESSE EELS SESE ESS 
'# 

! # ag + ht (c) 1982, 1983 * 
by DIGITAL Equipment Corporation, Maynard, Mass. . 
i This software is furnished under a License and may be used and copied 
!« ~ in accordance with the terms of such License and with the 

! * inclusion of the above copyright notice. This software or any other 

! * copies thereof may not be provided or otherwise made available to any 

! # other person. No title to and ownership of the software is hereby 

* transferred. 

: 

: * The information in this software is subject to change without notice * 
! # and should not be construed as a commitment by DIGITAL Equipment * 
: Corporation. 

i ® DIGITAL assumes no responsibility for the use or reliability of its * 
* software on equipment which is not supplied by DIGITAL. * 
‘ 

: 

i 

; 


SST AAAAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAA AAAAAAAAAAAAAAAAAAAAAAAAAAAATAAAAAAARAARAARAAAAAAAAARAAAAAA EES 


current prolog version number 
new plg for indexed files 


new plg for compression, space reclamation (plg 3) 


Source: 15-SEP-1984 22:50:36 _$255$DUA28:CRMS.SRCIRMSFiLS | 


roe 
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477 Literal PLGSK_BLN = 138: 
anh Literal P pLess-PLoper = 120; 

era ; 
4775 macro PLG # BBKTS1 i= “1150.8 0 %; ! data bucket size 
477 macro PLGSR-F LAGS. OVERLAY = 16,0,8,0 %; 
2778 macro PLESRTFLAGS BITS’ > 16.0 -8,0 % “spate 

acro = 16,0,8,0 %; 
4779 macro PLGSV_NOEXTEND = 16,0,1,0 %; ! no extend allowed (rel) 
4780 macro PLG$B_AVBN = 102.0.8.6 {; ! vbn of first area descriptor 
4781 macro PLG$B_AMAX = 103,0,8,0 2%; ! maximum number of areas 
478 macro PLG$WIDVBN = 104,0.16.0 &; i first data bucket vbn 
irk; 8 Sates pent-eor = N99-o°s8-5 | sare (eepyd numer (ret 
se = 0 4%; eo n (re 

4785 macro PLG$W_VER_NO = 116,0;16,6 %; ; version number 
$78 macro PLG$W-GBC"= 118,0,16.0 &; ! default global buffer count 


pee MODULE SDLCDEF *** 


; 7. 
; relative file deletion control byte bit definitions 


literal DLCSM -DELETED = 
Literal DLCSM_REC = 8; 
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Literal DLC$S"D EF = 1; 
479 macro DLC$R_DCCDEF TS = 0,0,8,0 %; 
479 macro DLCS$V_DELETED = 0.2 ; %; ! record deleted 
rh macro DLC$V_REC = 0,3,1,0 2%; ! record exists (but may have been deleted) 
4801 
ret index bucket definition 
tans this is the bucket format for RMS-11/RMS-32 index files. 
4806 Literal BKT$K_OVERHDS? = 14 ! Length of bucket overhead 
4807 Literal BKT$C_OVERHDSZ = 14 ! Length of bucket overhead 
4808 Literal BKTSM_LASTBKT = 1; | 
4809 literal BKTSM_ROOTBKT = 2; 
4810 Literal BKTSM_PTR_SZ = xt 
4811 Literal BKTSC_ENDOVHD = 4; ' end of bucket overhead 
4812 Literal BKT$C_DAT BKTOVH = 2 ! end of bucket overhead for data buckets 
4813 Literal BKTSC_DUPBKTOVH = ! additional end of data bucket overhead 
4814 ! when duplicates are lived (LCB pointer 
oni? literal BKTS$C -MAXBKTSIZ = 63; mayimum bucket size 
4 1g Literal BKTS$S-BKTDEF = 14; 
481 macro BKT$B_CRECKCHAR = 0,0,8,0 %; ! bucket check character 
4818 macro BKT$R TAREANGOVERL AG = {,0,8.0 %; 
4819 macro BKT$B_AREANO = 1,0,8,0 2%; ! area number form which bucket was allocated 
4820 macro BKT$B_INDEXNO = 1.9.8.0 i: index to which this buckes belongs (plg 5) 
4821 macro BKTS$W_ Bosteey, E = 16,0 2%; : address sample - low 16 bits of first vbn in bucket 
48 ‘ macro 8KT$R~FREESPACE -OVERLAY = 4,0,16, 
48 macro BKT$W_ PREESPACE” = 4,0,16, £; ‘ * displacement in bucket of first free byte 
4824 macro BKTS$W_KEYFRESPC = 4,0,16,0 2; ! pointer to key's free space (plg 3) 
4825 macro BKT$R— “NXTRECID <OVERLAY = 6,0,16,0 2%: 
$858 macro BKT$W-NXTRECID™= 6,0,16,0 4; ! next available word record id (plg 3) 
4827 macro BKT$R~ <NXTRECID. FIELDS ='6,0,16,0 %; 
4828 macro BKT$B_NXTRECID™= 6,0,8,0 {; ! next available record id 


—————_—_—_ 


macro IRCS$R_ CONTRO 1188 § z:°° 0,8,0 %; 
macro IRC$SV_RRV = ' ery record 


7 record control bits used as in prologue 2 SIDR record control bytes 


macro IRC$R_CONTROL pat = A 0,8,0 2; 5 
macro IRCSV-NODUPCNT = 1,6 £;° ! DUP_CNT field absent 
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; 14 8 macro BKT$B_LSTRECID = 7,0,8,0 %; ! last id in range 
>; 48350 macro BKTSL_NXTBKT = §-0. 2,6 %; ! vbn of next bucket 
>; 4831 8 macro BKTSB_LEVEL = 12,0, 6 a ! bucket level number 
>; 4832 macro BKTS$R_BKTCB_OVERLAY = 13,0,8,0 %; 
3 6855 macro BKT$B_BKTCB’= 13,0,8,0 %: bucket control bits 
; 48 macro BKT$R-BKTCB BITS = 15,0,8,0 %; 
; 4835 macro BKTS$V_LASTBRT = 13.0.1.6 {; ' Last bucket in horizontal chain 
; ret) macro BKT$V_ anootest = 15,1,1,0 %:; ! root bucket 
> 483 macro BKT$V~PTR_SZ = 13,3,2,0 %: 
; rete 8 Literal BKTSS_PTR_SZ = 2; ! size of vbn pointers in this bucket 
3 ret 8 — MODULE SIRCDEF *#** 
: eRe 8 index record definition 
3 tate this is the definition of RMS-11/RMS-32 index file record formats 
>; 4846 0 literal IRCSM_PTRSZ = 3; 
>; 4847 0 Literal IRCSM_RECORDCB = 252; 
; 4848 0 Literal IRCSM_DELETED = 4 
: 4849 0 Literal IRCSM~NOPTRSZ = 16 
> 4850 0 Literal IRCSM~FIRST_KEY = 128; 
; 851 0 Literal IRCSM_RRV = 8; 
; 6852 0 Literal IRCSM~NODUPCNT = 16; 
> 4853 0 literal IRCSM"RU_DELETE = 32; 
>; 4854 0 Literal IRCSM_RU_ UPDATE = 64; 
>; 4855 0 Literal IRCSC_IDXPTRBAS = 2; ! used to determine size of pointer in index 
3 era 21; ! includes record control byte 
ret | 8 *e L IRC$C~IDXOVHDSZ 1 ! lud d trol byt 
; rtf? 8 i data bucket record 
FY 4860 0 literal IRC$S_IRCDEF = 1; 
:; $861 O macro IRC$B8_CONTROL = “0,6,8,0 %; ! record control byte 
: 6862 0 macro IRC$R_CONTROL_ BITSO = ee 0,8,0 %; 
P4 486 0 macro IRC$V Etat es 5 09.2.0 & P ¥ 
: 6864 0 Literal IRCS$S_PTRSZ = 2: ! size of pointer 
> 4865 0 macro IRC$V_R RECORDEB = 6.2. 6,0 %; 
5 1508 Literal IRCSS “RECORDCB = ! record control bits 
; 6868 0O ! record control bits used only in primary data record and SIDR array element 
3 rts 44 4 ' control bytes 
; 46871 O macro IRCS$R _CONTROL_BITS1 = 0,0,8,0 %; 
; 4872 0 macro IRC$V_DEL er ED"= 0,2,1,0 2; ! record is deleted 
: 68735 0 macro IRC$V_NOPTRSZ = 0,4,1,0 %; ! no RRV 
: rt to 6 macro IRCSV_FIRST_KEY = 0,7,1,0 2%; 
:; 4876 | 7 record control bits used only in primary data record control bytes 
; 0 
3 0 
s 0 
$ 0 
s 0 
3 0 
; 0 
; 0 
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' record sentry’ bits used only in POPDATES 3 RRV, UDR and SIDR record control 

} bytes of RU journalled files. (RU_UPDATE is set only in UDR record control 


bytes) 
macro IRC$R CONTROL _BITS4 = 5 970-8-0 %; 
macro IRC$V_RU_DELETE = 0,5,1,0 2; ' record is RU deleted 
macro IRCSV_RU_UPDATE = 0;6.1.0 &: ! record is RU updated 


record control bits reserved for RMS-11 use only (these may not be re-defined 
except for prologue 3 records) 


Bit number 5 
Bit number 6 


; index bucket record 


macro IRCSR_ ety FIELDS4 = 0,0,8,0 %; 2 : 
peere IRCST_ BU poe igh = 1,00. 0 a ! bucket pointer (not referenced in the code, 
esent for consistenc 
itterat I ($s IR RCDEF1 = 3; 
macro IRC$B_ID = 1,0,8,0 i; ! record id : 
macro IRC$B_RRV_ID = 2,0,8,0 2%; ! rrv's id -- always in the same place 
prologue 3 data bucket record 
literal IRCS$C _DATSZFLD = 2; ! size of size field in variable length records 
Literal IRCSC_DATPTRBAS = 5; ' used to determine size of RRV in data buckets 
Literal IRC CNTSZFLD = 4; ' size of duplicate count field in Plg 2 SIDRs 
Literal IRCSC_DATOVHDSZ = 2; ' includes the record control byte, and the id 
Literal IRCSC_FIXOVHDSZ = 7; ! the record overhead for fixed record 
Literal IRC$C_VAROVHDSZ = 9; ! record overhead for variable records 
Literal IRCSC_RRVOVHDSZ = 7; ! size of RRV 
prologue 3 constants 
literal IRCS$C _DATPTRBS3 = 4; ! used to determine size of RRV in data buckets 
Literal IRCS$C =DATOVHS23 e 3s ' record control byte, and i 
Literal IRCSC_FIXOVHSZ3 = 9; ! record overhead for fixed length records 
riteret IRCSC=VAROVHSZ3 = Ms } mycere Peeenene for variable length records 
era = 9; size o 
Literal IRC$C_SDROVHSZ3 = 2; ! record overhead for SIDRs 
Literal IRCSC_KEYCMPOVH = ¢: ! key compression overhead 
rere? IRCSS“IRCDEF? 5 : ! data compression overhead 
era = 3; 
macro IRC$W_IB = 6,0 %; ! record id 
macro IRC$W_RRV_ D's 0.36 66°, 16,0 %; ! rev's id -- always in the same place 


3 constants 


paee MODULE SKEYDEF *** 


: definitions for the key descriptors in the prologue 
these definitions are associated w/ the plg and area definitions 
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Literal KEYSM_DUPKEYS = 1; 
Literal KEYSM_CHGKEYS = 2; 
Literal KEYSM_NULKEYS = 4; 
Literal KEYSM_IDX_COMPR = 8; 
Literal KEYSM_INITIDX = 16; 
Literal KEYSM-KEY_COMPR = 64: 
Literal KEYSM-REC-COMPR = 128; 
Literal > Ni ane go = 10; ! (PLG3) Maximum size of a non-compressed data 
! recor 
Literal KEYSC_MAX_PRIMARY = 6; ! (PLG3) Maximum size of a non-compressed 
! primary ke 
Literal KEYSC_MAX INDEX = 6; ! (PLG3) Maximum size of a non-compressed 
; index and SIDR ke 
Literal KEYSC_STRING = 0; : 4 ha data type 
Literal KEYSC_SGNWORD = i; ! signed binary word 
Literal KEYSC_UNSGNWORD = 2; ! unsigned binary word 
Literal KEYSC_SGNLONG = 3; ! signed binary Cong word 
Literal KEYSC_UNSGNLONG = 4; ! unsigned binary long word 
Literal KEYSC_PACKED = 5; ! packed decimal 
Literal KEYSC_SGNQUAD = 6; ! signed binary quadword 
Literal KEYSC_UNSGNQUAD = 7; ! unsigned binary quadword 
Literal KEYSC_MAX_DATA = 7; ! maximum data type value allowed 
Literal KEYSK_BLN = 96; ! Length of key descriptor in the prologue (plg 3) 
literal KEYSC_BLN = 96 ! Length of key descriptor in the ig a (plg 3) 
Literal KEYSC_SPARE = é; ! these are spare words in key block (plg 3) 
Literal KEYSS-KEYDEF = 96; 
macro KEYSL_IBXFL = 0,0 32,0 %; ! vbn for next T descriptor 
macro KEYSW_NOFF = 4 6 16,6 %; ! offset to next key descriptor 
macro KEY$B_IANUM = 6.6.8.0 %: ! index area number 
macro KEY$B_LANUM = 7,0,8,0 %; ! level 1 area number 
macro KEY$B_DANUM = 8,0,8,0 %; ! data area number 
macro KEY$B_ROOTLEV = 9,0,8,0 2%; ! root level f 
macro KEYSB_IDXBKTSZ = {0.0.8.0 2; ! index bucket size 
macro KEY$B_DATBKTSZ = 11,0,8,0 2%; ! data bucket size 
macro KEYSL_RCOTVBN = 12,6,32,0 %: ! root bucket pointer 
macro KEYSR—FLAGS_OVERLAY = 16,0,8,0 %; 
macro KEY$B_FLAGS = 16,0,8,0 2; flag bits 
macro KEYS$R-FLAGS BITSO = 16,0,8,0 %; 
macro KEYS$V_DUPKEYS = 16,0,1,0 2; ' duplicate key values allowed ; 
macro KEYSV_CHGKEYS = 16,1,1,0 %; ! ave value may change on $update operation 
macro KEYSV_NULKEYS = 16,2,1,0 2%; ' null key character enabled 
macro KEY$V_IDX_COMPR = 16,3.1.0 %; ! index is compressed _ 
macro KEYSV_INITIDX = 16,4,1,0 %; ! index must be initialized 
macro KEY$V_KE R= 16 6-1-8 q; ! (PLG3) key is compressed in data record 
macro KEY$RFLAGS BITS! = 16.0.8.0 %; 
macro KEY$V_REC_COMPR = 16,7,1,0 %; ! (PLG3) Data record is compressed 
macro KEY$B_DATATYPE = 17,6,8,6 2: ! data type for key 
macro KEY$B8_SEGMENTS = 18,0,8,0 2; ! number of segments in key 
macro KEY$B_NULLCHAR = 19,0,8,0 2; ' “null” character 
macro KEY$B_KEYSZ = 20,0 6.6 &: ' total key size 
macro KEYS$B_KEYREF = 21,6,8.0 &; ! key of reference 
macro KEYSW-MINRECSZ = 22.0,16,0 2%; i minimum record Length 
macro KEY$SW_IDXFILL = 4.6.16. 2; ! index fill quantity 
macro KEYSW_DATFILL = 26,0,16,0 2%; ! data fill quantity 
macro KEY$R~POSITION_OVERLAY = 28.0,16,0 2; wz 
macro KEYSW-POSITION= 28,0,16,0 4: ! key seg position eat 
macro KEY$W_POSITIONO = 28,6,16.0 &: ! another name for position 0 
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; £000 0 macro KEYSW_POSITION1] = 30,0,16,0 2; ! position 1 

; 001 macro eM POSITION = 58180 2; : Bosition 

; 00 macro KEYS$W POSITIONS = 27071098 %; ! position 

; 0c macro KEYSW_POSITION4 = 36,0,16,0 2%; ! position 4 

; 004 0 macro KEYS$W_POSITIONS = 816.8 z; 

; 5005 0 macro KEV _POS1 TIONG = 40,0,16,0 2; 

; 3006 0 macro KEYSW_POSITION? = 42,0,16,0 2%; 

3 raid 0 macro KEYSR_SIZE_OVERLAY = 44,0:8,0 %; 

; 008 O macro KEY$B_SIZE = 44,0,8,0 %; ! key segment size 

: 5009 QO macro KEY$B-SIZ7E0 = 44,6,8,0 &: ! another name for size 

; 5010 O macro KEY$B_SIZE1 = 45,0,8,0 2%; ! size 1 

: ent) 0 macro KEVSO_ 31266 = tS. ° 8 b: 

: big 0 macro KEYSB_SIZE5 = 47,0,8,0 2: 

; SIS @ macro KEYS&_SIZE4 = 48,0,8,0 2%; 

: 5014 0 macro FEY$B_SIZE5 = 49,0,8,0 2%; 

; 3013 ©@ macro KEY$B_SIZE6 = 50,0,8,0 2; 

>; 5016 0 macro KEY$B_SIZE7 = 51,0,8,0 %; 

; 5017 O macro KEYST-KEYNAM = 52,0,0,0 4; 

: 5018 0 Literal KEYSS KEYNAM = $2; | key name 

$= 319 © macro KEYSL_LOVBN = 84,0,52,0 2; ! 6first data bucket 

; 5020 0 macro KEYS$R_TYPE_OVERLAY = 88,0,8,0 %; 

;. oe: @ macro KEYSB_TYPE = 88,0,8,0 %; ! key segment datatype (plg 3) 

3 2058 0 macro KEYS$B_TYPEO = 88,6,8,0 &: ! another name for first datatype (plg 3) 

ees @ macro KEYS$8_TYPE1 = 89,0,8,0 %; ! (plg 3) 

; 5024 0 macro KEY$B_TYPE2 = 90,0,8,0 2%; ! (plg 3) 

s 3023 © macro KEYSB_TYPES = 31,0,8,0 2%; ! (plg 3) 

>; 5026 QO macro KEYSB_TYPE4 = 95-0 -8-0 z; ! (plg 3) 

3; er @ macro KEY$B_TYPES = 93,0,8,0 2; ' (plg 3) 

>; 5028 0 macro KEY$B_TYPE6 = 94,0,8,0 2%: ! (plg 3) 

; it 8 macro KEY$B_TYPE7 = 95,0,8,0 2%; ! (plg 3) 

; 5031 0 ‘w@® MODULE SAREADEF *** 

; 5032 0 : 

5; 3033 6 

: rye: 8 definitions for the area descriptor in the prologue 

s Os @ 

; 3os7 @ teral AREASC_CYL = 1; ! cylinded alignment 

; 5038 0 teral AREASC_LBN = 2; ! logical block alignment 

; $039 0 teral AREASC_VBN = 3; ! virtual block alignment 

; 3040 0 teral AREASC_RFI = 4; ! allocate close to related file by fid 

: 5041 0 teral AREASM-HARD = 1; 

; 2006 0 teral AREASM_ = $i 

; 5043 0 teral AREASM_CBT = $i 

: 5044 0 teral AREASM-CTG = 128; = : 

; 5045 0 Literal AREASK_BLN = 64; ! length of area descriptor in the prologue 

; 5046 0 Literal AREASC_BLN = 64; ! Length of area descriptor in the prologue 

: 5047 0 Literal AREASS AREADEF = 64; 

:; 50468 O macro AREASB_FLAGS = 1,0,8 6 x; ! not currently used 

; 5049 0 macro AREASB-AREAID = 2,0,8,0 &: ! area id | 

; $050 0 macro AREASB_ARBKTSZ = $,0,8,0 &; ' bucket size for area 

ec) macro AREASW-VOLUME = 4.0,16,0 %: ! relative volume number 

; 2026 0 macro AREA$B_ = 6,0,8,6 %; ! extend allocation alignment 

; 5053 0 macro AREA$R~AOP_OV RLAy = 7,0,8,0 %; 

; 5054 9 macro AREAS$B_ 2 8,0 2%; ! alignment options 

: 5055 0 macro AREASR-AOP_BITS = 7,0,8,0 %; 

; 5056 0 macro AREASV_HARD = 7,0,1,0 2; ! absolute alignment or nothing 
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; 057 8 macro AREASV_ONC = 7,1,1,0 %; ! locate on cylinder 

5 058 macro AREASV_CBT = pede]. %; ! contiguous best try 

3 059 0 macro AREASV_CTG = 7,7,1,0 %: ! contiguous 

>; 5060 0 macro AREASL_AVAIL = §-8. 0 %: ! available (returned) buckets 
; ape) 0 macro AREASL_CVBN = 1 0 %; ! start vbn for current extent 
3 $06 8 macro AREASL-CNBLK = 16,6,32,0 4; ! number of blocks in current extent 
oo ,'.. macro AREASL-USED = 20,6, 6 %; ! number of blocks used 

: 5064 0 macro AREASL_NXTVBN = 24 g.3 0%; i next vbn to use 

>; 5065 QO macro AREASL_NXT = 28 9.3 9 {; ! start vbn for next extent 
> $066 0 macro AREASL_NXBLK = $2°0,32.0 &; ! number of blocks in next extent 
5 3067 @ macro AREASW_DEQ = 36,0,16,0 2; ! default extend quantity 

; epee 8 macro AREASL_LOC = 40,0,32,0 2%; ! start Lbn on volume 

; 5069 macro AREASW-RFI = 44:0,0,6 %; 

: 2070 0 Literal AREASS RFI = 6; ! related file id 

3 071 0 macro AREASL_TOTAL_ALLOC = 50,0,32,0 %; ' total block allocation 

; 2076 8 macro AREAS’ _CHECK = 62,0,16,0 &: ! checksum 

; 5074 0 ‘eee MODULE SRJRDEF *** 

; fer & ; 

; 5076 0 : 

; wr ! definitions for the journaling records in RMS journals 

; 5078 O : for performance reasons, the BKT and BLK forms 

; Fry © : should be an integral number of quadwords. 

; 5080 0 : 

s; 308) @ ; . ; 

3 o08¢ 0 Literal RJRSC_VER1 = 1; ! journal version 1 

; 5083 QO Literal RJRSC_VER2 = 2; ! journal version 2 

>; 5084 QO Literal RJRSC_MAXVER = 2; ! version Limit 

; 5085 0 Literal RJRSC_NOENT = 0; ' null type 

; 5086 0 Literal RJRSC_MAPPING = 1; ! mapping entry 

; 5087 QO Literal RJRSC_FILENAME = 1; ' mapping entry synonym 

:; 5088 O Literal RJRSC_RECORD = 2; ! record entry 

; 5089 0 Literal RJRS$C_BLOCK = 3; ! plock 10 entry (at, etc...) 
: 5090 0 Literal RURSC_BUCKET = 4; i ISAM bucket 

> 5091 0 Literal RJRSC_EXTEND = 5; ! extend (AT, Al) 

>; 5092 0 Literal RJRSC_AT_RECORD = i audit trail record 

s; 5095 G Literal RJRSC_MARTYP = 6; ! entry-type Limit 

; 5094 0 Literal RJRSC_SEQ = 0; ! sequential file org 

: 5095 0 Literal RJRSC_REL = 1; ! relative file org 

; 7Oom @ Literal RJRSC_IDX = ¢: ! indexed file org 

:- for Literal RJRSC_HSH = 35; ! hashed file org 

; 5098 QO Literal RJRSC_MAXORG = 3; : org limit | 

; 5099 0 Literal RJR$_RNooP = 0; ' null operation 

: 3100 0 Literal RJR$_BUCKET = 1; ' bucket-level 1/0 

; $101 0 Literal RJRS$_CLOSE = 2; ' close 

s 3102 ¢ Literal RJRS$_CONNECT = 3; ! connect 

s 5103 @ Literal RJRS$_CREATE = 4; ' create 

: 5104 0 Literal RJRS_DELETE = 5; ! delete 

s. 3163 @ Literal RJRS_DISCONNECT = 6; ! disconnect 

; 5106 0O Literal RJRS$_DISPLA” = 7; ! display 

; 5107 O Literal RJRS_ENTER = 8; ! enter 

; 3108 0 Literal RJR$_ERASE = 9; ! erase 

; 5109 0 Literal RJRS-EXTEND = 10; i extend 

s «62190 @ Literal RJRS_FIND = 11; ! find 

: 5111 0 Literal RJRS-FLUSH = 12; i flush 

; a1i¢ 0 Literal RJRS$_FREE = 13; ' free 

s HS @ Literal RJR$_GET = 14; ! get 
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-Sep-19 am 
s 114 Literal RJRS_MODIFY = 15; ! modify 
; 115 Literal RJRS_NXTVOL =_16; ! next volume 
118 Literal RJRS_OPEN = 17; ! open 
: 511 Literal RURS-PARSE = 18; i parse 
3 118 8 Literal RJRS$_PUT = 19; 1 put 
s 6 6BNi9 Literal RJRS-READ = 20; ! plock 1/0 read 
; 3120 8 Literati RJRS_RELEASE = 21; ! release 
Bs 6 6a) Literal RJRS_REMOVE = 22; ! remove 
: 2 ; 0 Literal RJRS_RENAME = 235; : rename 
s 3 0 Literal RJRS_REWIND = 24; ' rewind 
>; «65124 Literal RJRS_SEARCH = 25; ! search 
; 2] 5 Literal RJRS_SPACE = 26; ! block 1/0 space 
3 126 Literal RJRS_TRUNCATE = 27; ! truncate 
5 else 0 Literal RJRS_UPDATE = 28; ! update 
: 5128 0 Literal RJRS$_WAIT = 29; ! wait 
; 3129 0 Literal RURS$_WRITE = 30; i block 1/0 write 
; 3130 @ Literal RJRS$_TPT = 31; ! truncate on PUT 
; 5131 0 Literal RJRS$_MAXOPER = 31; ! oper Limit 
; 2136 0 Literal RJRSC_NOJNL = 0; ' null jnl type 
; 3133 @ Literal RJRSC_RMS_AI = 1; ! after-image journal 
; 5134 0 Literal RJRSC_RMS_BI = ¢: ! before-image journal 
- ioe @ Literal RJRSC_RMS_RU = 3; ! recovery unit 
; 5136 0 Literal RJRSC_MAXJNL = 3; ! jnl type Limit 
>. fiw @ Literal RJRSK_HDRLEN = 56; ! common header Len 
>; 5138 O Literal RJRSC_HDRLEN = 56; ! common header Len 
: 5139 0 Literal RJRSK-C_FIBLEN = 64; 
>; 5140 QO Literal RJRSC_C_FIBLEN = 64; 
: 5141 0 Literal RURSK-RECATRLEN = 32; 
3 glee 0 Literal RJRSC_RECATRLEN = 32; 
: 5143 0 Literal RJRSK-FILNAMLEN = 452; 
: 5144 0 Literal RJRSC_FILNAMLEN = 452; 
>; 5145 0 Literal RJRSK_RECLEN = 72; ' record entry len 
: 5146 O Literal RJRSC_RECLEN = 72; ! record entry len 
; 5147 0 Literal RJRSK_BLKLEN = 68; ! plock i/o entry Len 
; 5148 O Literal RJRSC_BLKLEN = 68: ' plock i/o entry Len 
:; 5149 0 Literal RJRSK_EXTLEN = 122; ' extend entry Len 
. a Ss Literal RJRSC_EXTLEN = 122; ! extend entry Len 
> Sin @ Literal RJRSK_BKTLEN = 68; ! bucket entry Len 
: $126 0 Literal RJRSC_BKTLEN = 68; ! bucket entry Len 
> 5153 0 Literal RJRSK-AT_RECLEN = 76; 
: 5154 0 Literal RJRSC_AT-RECLEN = 76; 
; tera $ = ; ! Length o escriptor in the prologue 
5155 0 li L RJRSK-BLA = 452 yt h of RJR d i in th l 
; 2126 piceres eine « Be Moti 5, ! Length of RJR descriptor in the prologue 
3 era = 3 
s Site @ macro R wen 7 CASS OVERLAY = 0,0,16,0 %; ! control flags 
: 5159 0 = macro RIRSWIFLAGS"= 0,0,16,0 £; 
> 5160 0 macro RJRSRIFLAGS BITS = 0.0.16,0 2; 
; 3161 0 macro RJRSB_VERSION = 2,0,8,0 2: ! RMS journal version # 
; g10e 0 macro RJRSB_ENTRY_TYPE = $,0,8,0 2; : journal entry type 
, 32163 0 macro RJRSB_ORG ="4,0,8,0 &; : file organization 
; 3164 0 macro RJR$B_ = 5.6.8.0 &; : RMS operation id 
; 3165 0 macro RJRS$B_JNL_TYPE = 6,0,8,0 2; ! journaling type 
; 3166 0 macro RJRST-JNLIL = 8,0,0,0 &; 
: 3167 0 Literal RJRSS JNLID = 28: 
: 168 0 macro RJR$T_VOLNAM = 8,0,0,9 %: 
i 3169 0 Literal RJRSS_VOLNAM = 12: ! volume name 
3 3170 macro RJRST_FID = 20,0.0,0 %; 


macro RJR x 
macro RJRSL_ATR_FLAG 
macro RJRSR_ATR_FLAGS_ 
macro RJRSV_ATR_UCHAR 
macro RJR$V_ATR_PROT = § 
macro RJR$V_ATR_UIC 
macro RJRSV_ATR_REC 
macro RJR$V_ATR_EXP 
macro RJ 6 
macro RJR$L_PROT = 
macro 


macro 

macro RJRS$Q_EXPI 
Literal RJRSS EX 
macro RJRS$B_FAS 

macro RJR$B_FAC 

macro RJR$B_SHR 

macro RJR$W_DID 


Literal RJRSS_FILENAM 
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macro RJRSL_CAK 

macro RJRSR_RFA_OVERLA 
macro RJR$W RFA = 
Literal RJRSS_RFA = 
macro RJRS$R_RFA_FIE 
macro RJRSL_RFAD = 

macro RJRSW_RFA4 = 

macro RJRSL_RRN = 6 
macro RJRSW_RSIZE = 
macro RJRST_RIMAGE = 


macro RJRSR_BLOCK_ENTRY = 
Literal RJR$S_ BLOTK_ENTRY 
macro RJR$L_BCOCK_VBN = 6 


macro RJR$L_BLOCK_SIZE = 
macro RJRST_BLOCK = 68,0, 
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: The extend entry is common to both 


16 
13-60-1984 £52 oe OSes DOADSS AMS GBs IRMS.R32; 1 


file id 


time , 
status of operation 
secondary status 

user FAB/RAB CTX field 


%; 


UCHAR attribute present 
PROT attribute present 

UIC attribute present 

RECORD attributes present 
EXPIRATION present 

owner UIC 

prot mask - 

initial allocation (audit) 
user characteristics (create) 


expiration date (create) 
size of file name 

file access (audit) 
sharing allowed (audit) 
directory ID (create, volume recovery) 
FIB (create) 

record attributes (create) 
full filename 

record entry 

checksum of old record 
RFA of record 

alternate RFA def 

relative record number 


record size 
record date 


; The block entry is common to both AT and block I0 journaling. 
es S; 
2,0 %; 
6,32,0 &; 


block entry 

vbn of block 
transfer size (AT) 
block data 


AT and Al journaling. 
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: 8 macro RJRSR_EXTEND ENTRY = 56,0,0,0 2%; 
; 9 literal RIRSS E XTEND_ENTRY = 66; ! extend entry 
: 0 macro RJR$T Pree EXT2 = 60 9. 0 % 
: 5231 iteral RORSS FICE EXT2 © 4 : ! no longer FIB 
ee ¢ ! currently cnused 
: >? 0 macro RJRSR_EXT_FLAGS_OVERLAY = 92,0,32,0 % 
: 5234 0 macro RJRSL-EXT-FLAGS = 92, 0.32.0 4; 
; 5235 0 macro RJR$R_EXT_FLAGS BITS = 92,0,8,0 2%; 
: 32236 : macro RJRSV_EXT_USE_XAB = 92,0,1,6 £; “! ALL XAB fields present 
; Ses @ Fields EXT_AOP (unused) through EXT_RFI are in same relative locations as 
; esi8 8 ! the same fields in allocation XAB. 
s 32461 @ macro RJRS$B_EXT_AOP = 190-0 .8.8 ny ! align options 
3 2506 0 macro RJR$B_EXT_ALN = 101,0,8,0 %; ! alignment boundary 
>; 524635 0 macro RJRSW_EXT_VOL = 102.0,16,0 &; ! relative volume number 
>; 5264 0 macro RJRSL_EXT_LOC = 104,0,32,0 2%; ! location 
>; 5245 0 macro RJRSL_EXT_ALQ = 108,0,32,0 2%; ! allocation quantity 
; 52466 0 macro RJRSW_LEXT_DEQ = 112,0,16,0 %; ! default extension 
; tear © macro RJR$B_EXT_BKZ = 114,0,8,0 %; ' bucket size 
>; 52468 0 macro RJR$B_EXT_ = 115,0,8,0 2%; ! area ID 
; 5250 0 Literal RURSS RFI = 6; ! related file IFI 
:: S53 6 macro RJRS$T_ERT ENDALL = 122,0,0,0 %; ' end of all info 
: 5252 0 macro RJRSR-BUCRET ENTRY = 56,0,0,0 &; 
; 5253 0 Literal RJRSS BUCKET _ENTR y = {2: ! BUCKET entry 
: 5254 0 macro RJRSL_BRT = 60,0,32,0 %; ' bucket vbn 
: 5255 0 macro RJR$W_BKT~ sive = 64,6,16,0 &; i bucket size 
>; 5256 0 macro RJRS$W-JBKT SIZE = 66,0,16,0 &: ! actual size of 
: 5257 0 ! journaled bucket data 
; Sen © macro RJR$T_BUCKET = 68,0,0,0 %; ! bucket data 
: 5259 0 macro RJRSR-AT_RECORD = 56,0,0,0 2; 
: 5260 0 Literal RJRSS_AT RECORD = 0: 
: 5261 0 macro RJRS$L AT “ROP = 60,0,32,0 %: ' record options 
: 256¢ 0 macro RJR$B_AT_KRF = 64.0.8,0 2%; ! key of reference 
:; 5263 0 macro RJR$B_ “A “KS? = 65,0,8,0 2; ! key size 
:; 5264 0 macro RJR$B_AT_RAC = 66,0,8,0 2; ' record access mode 
s 3265 @ macro RJR$R_ -AT. _RFA_OVERLAY = 68,0,0,0 %; 
; 5266 O macro RJRS$W_A ois = 68,0,0,0 2%; 
: 5267 0 Literal RIRSS AT_RFA = 6; ! RFA of record 
>; 5268 O macro RJRSR_AT RFA FIELDS = 68,0,0,0 %; 
: 5269 0 macro RJRSL-AT-RFAO = 68,0,32,0 &; alternate RFA def 
s S270 0 macro RJRSW_ ~ “RFAG = 72,0,16,0 2%; 
: 3sii 8 macro RJR$L_AT_RRN = 68.0,32 6 x; ! relative record number 
: 3 ie 0 macro RJRST_ “AT “KEY = 76.0.0,0 2; i key if used 
3 $374 The FILENAME entry is used to describe filename information required to: 
: r he entify a stream of journal entries with a particular fi 

5276 0 . 4g Id f f l ith l file 
3 agit 4 Used in particular for Al volume recovery or roll back RUs on remount. 
: 5879 0 : 2. Record the information required to re-create a file for Al journaling. 
: 2563 G 3. Record all the required audit-trail information for a $CREATE. 
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; COMMAND QUALIFIERS 
; BLISS/LIB=LIB$:RMS.L32/LIS=LISS$:RMS.LST LIBS:RMS.R32 


; Run Time 00:37.5 

: Elapsed ttee: 00:42.1 

3 Lines/CPU Min: 8451 

3 Lexemes/CPU-Min: 76835 

; Memory Used: 590 p pages 

; Library Precompilation Complete 
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